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(54) Method and apparatus for finding and selecting a desired data item from a large schedule 
of data items using a TV set and a controller similar to a TV-remote-control 



(57) An apparatus and method for presenting a 
viewer with an overall representation ol the present 
number ol entertainment programs available for selec- 
tion gfven one week ol program schedule data for 300 
or more channels and one or more filteri ng criteria to 
limit the number of items represented in the overall rep- 
resentation. Sequentially applied fitters will filter the 
group of program schedule data items that has at least 
100,000 half hour time slots offered by 300 channels 
each week into a smaller subgroup where individual 



consideration of each item of the subgroup can be made 
in a reasonable time. A set top box drives the display of 
overall representations or results ol filtering criteria on 
a commercial TV set. Once a reasonable sized sub- 
group is obtained, other displays provide specific inlor- 
mation of the program offerings of the subgroup. Selec- 
tion of the filtering criteria and selection from within a 
subgroup is interactively made by a viewer through the 
use of a controller that looks and operates very much 
like a TV remote control. This makes the interaction fa- 
miliar, easy and predictable. 
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Description 
Technical Field 

The invention concerns a method and apparatus tor subjecting a large schedule of data items having multiple 
a.tnbutes to consecutive selection criteria in order to reduce the number of individual programs to a manageable group 
whtch can be vtsuaify searched for a desired data item having a selected subset of Ihe attributes, and mora particularly 
to an apparatus and method which use an interactive control having directional buttons and a select button that are 
used in conjunction with an interactive display viewed on a noimal television set to select the desired data item. 

Description ef the Prior Art 

Presently there are known methods lor reducing a large quantity of data into a manageable set of data which can 
be visually searched for a desired item by a decision maker. One example of such a large quantity of data is a directory 
of a fwed drwe of a computer system. I^ethods implemented through interactive graphical user interfaces for personal 
computers and workstations display and reduce disk drive directories to root directory displays which typically show 
root level files and one or more branch subdirectories for Ihe user's selection. Upon selection of a subdirectory, usually 
by a mouse, ihe display typically shifts showing files of the selected subdirectory and sub-subdirectories tor further 
selection. The subdirectory display is often too big to fit on the screen, so interacltve scroll bars are typically provided 
so the display may be controlled by a mouse. Using the mouse and the scroll bars, a user may work down the directory 
tree struclure until the desired file is found. Such graphical user interlaces are common for computers and monitors 
Where visual definition is lypicalty at least 640 x 4S0 pixels for each display. Such techniques might be used in homes 
to access databases of useful information, such as airline schedules, television programming schedules and movie- 
on-demand catalogues. Unlortunately each home does not have a computer or work station wilh 640x460 pixel defi- 
nition Which could take advantage of such existing databases. Further, the NTSC television set which almost every 
home has in its living room has relatively low viewing definition compared to 640 x 450 pixels or more per screen 
delinition of computer monitors. IWoreover. the typical home television set is not connected to a mouse, which is not 
an appropriate pointing device for the living room, rather most television sets have controls on control panels and/or 
on a remote controls. If just a fraction of these home television sets were used to find and select airline ticket reserva- 
tions, programs to watch on 300 hundred or more channel cable television sen/ices, or pay-per-view movies from a 
vast collection, the profitability of the service providers and Ihe satisfaction of the users would both be improved The 
300 plus channels mentioned, may use any type of transmission scheme that will deliver information via a cable or 
wireless path and includes but is not limited to time division multiplexed channels, frequency division multiplexed chan- 
nels and packet data multiplexed channels. 

One known approach for the TV programming schedule is to display the presently showing programs along with 
the next subsequent programs for the next hour or so, on what is referred to as a preview channel. Because this is 
more irrformation than can be legibly displayed on one television screen at once, the preview channel display often 
scro s through all the channel offering for the present time and the near future. For a sixty channel system, one complete 
scrolling takes about three minutes At such a rate, a one hundred channel cable sen^ice would take five minutes and 
the future three hundred plus channel cable sen/ices would take 15 minutes. Needless to say. three minutes is a long 
ime. but acceptable because breaks between programs are about that long. Five and fifteen minutes time periods 
though represent a substantial portion of a 30 minute program and are simply loo long lo expect a TV viewer to wait 
The alternatives of speeding up the scrolling rate or using smaller size letters for descriptions are not practical either 
because either of these actions reduces the ability of the viewer to read and understand the schedule. Thus there is 
a need in the art for a method and apparatus that allows a viewer to quickly find and select a desired data item from 
a large schedule, in this case a TV program for viewing Irom a TV programming schedule for 300 plus channels over 
the ensuing hours or even days. There is a similar need for a method and apparatus, very similar to the TV program 
selector for finding and selecting a movie to order from movies-on-demand. or an airline flight(s) for a trip, it would 

m T?^^^ '° ^ """^"^ ''"""^^ '° ' ^ P^''^^'^ ^° 3 storage assets 

accessible by the apparatus to bs executed, updated or deleted as part of file maintenance 

nf ..In "''^f 1.°' ^'^^^"^ '° ^ "'^"^ °^ ^ '^^9^ ^^^^^^^'^ °' ^^ta and interactive selections 

ot subgroups of the large schedule of data items in order to arrive at a screen display with sufficiently small number of 
Items and sufficiently legible descriptions of each item to provide a viewer with an opportunity to make a reasoned 
seiecnon therefrom. 

o, HJ!i'r°^ u"' °' ^^'^ invention to provide a method for interactively selecting a data item from a large schedule 
lllTr! 'J'^,^ ""^^"^ °' sequentially applying different filtering criteria usingan interactive control having an operation 
appropriate for use with a television set. 
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Summary of the Invention 

In another aspect of the invention, the alorementioned objects may ba achieved by providing a method tor a home 
television viewer to interactively select a data item from a large schedule of data item having multiple attributes. The 

5 method includes a step of receiving the large schedule of data items. The received schedule of data items is stored 
locally in a database format in order to expedite later filtering and retrieval. Next, the schedule of data items is filtered 
into a subgroup of the schedule of data items according to attributes selected by to interactive viewer inputs. The 
resulting subgroup of the schedule data items is displayed for the viewer's inspection. The user then interactively 
selects a data item from the subgroup of data items viewed on a television screen. 

JO Briefly stated, in accordance with one aspect of the invention, the aforementioned objects are achieved by providing 

an apparatus for selecting an item from a large group in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified localion. This 
apparatus includes a filtration means including subgroup specifiers in the display means and is responsive to selection 
of a subgroup specifier by the pointing means tor filtering the list to produce the subgroup specified by the selected 

75 subgroup specifier, means for displaying representations o1 group items belonging to at least a portion of the subgroup 
in the display means; and group item selection means lor selecting a group item by selecting the representation thereof 
in the display in response to the pointing means. 

In yet another aspect of the invention, the aforementioned objects may be achieved by providing a method for a 
viewer to interactively select a program. The method includes a step of receiving program schedule data lor at least 

20 300 individual channels lor a time period of at least a week. The received program schedule data is stored locally in 
a database format in order to expedite later sorting and retrieval. Next, the program schedule data is filtered into a 
subgroup ol the program schedule data in response to interactive viewer inputs. The subgroup of the program schedule 
data is displayed for the viewer's inspeclion. The user then interactively selects a program from the subgroup of program 
schedule data for viewing on a TV screen, or allemalivety (or recording by an appropriate program recording device. 
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Brief Description of the Drawing 

FIG. 1 is a pictorial of a television set connected through a set top box to a cable carrying the program to be 
selected and a controller for selecting that program. 

FIG. 2 is a simplified block diagram of the set top box. 
FIG. 3 is a pictorial ot a controller as shown in FIG. 1 . 
FIG. 4 is a pictorial ol a top most selection interactive display 
FIG. 5 is a pictorial ol a second level selection interactive display 
FIG. 6 is a pictorial ol a third level selection interactive display. 
FIG, 7 is a pictorial of a first level selection query display. 
FIG, 8 is a pictorial of a second level selection query display 
FIG. 9 is a pictorial of another third level selection query display 

FIG. 10 is a pictorial of a display showing a subgroup of programs meeting the Sports. All and On Now sorting 
criteria. 

FIG. 11 is a pictorial of a of the display showing the subgroup of programs meeting the Sports. All and On Now 
sorting criteria along with a window having a preview of the highlighted program. 

FIG. 1 2 is a pictorial ol a display showing a second level selection interaction display, similar to FIG. 5. 

FIG, 13 is a pictorial of a two-dimensional interactive grid display with very many program data ilenrre shown in 
reduced representations. 

FIG. 1 4 is a pictorial of a third level selection query display, similar to FIG. 9. 

FIG. IS is a pictorial of a two-dimensional interactive grid display filtered down to a manageable number of data 
items, 

FIG. 16 is a pictorial of a first alphanumeric interactive display 

FIG, 17 is the same display as FIG. 14 except that the highlighted interactive area is at a different localion. 
FIG. 18 is a pictorial of a second alphanumeric interactive display. 

FIG. 19 is the same display as FIG, 16 except the highlighted interactive area is at a different location. 
FIG. 20 is a pictorial of a third alphanumeric interactive display 

FIG. 21 is the same as FIG. 18 except that the highlighted interactive area is at a different location. 
FIG. 22 is a pictorial of a fourth alphanumeric interactive display 

FIG. 23 is a pictorial of a two dimensional interactive display with logical third dimensional stacks for row and 
column intersections having multiple entries therein. 
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buttons 52-56 and double arrow buttons 60. 62 of controllar 20. The file card menu 402 is surrounded by a frame 420 
he top of which indicates the designation of the active area currently highlighted Once an active area has been hiqh- 
hghted. a selection is made by actuating the .elect (/) button 64 in FIG. 4. the TV button 410 is shown to be active- 
by actuating the select (^) button 64. the next display 500 shown in FIG. 5 appears. This appearance is a loqical 
overlaymg of the display 500 over the display 400. Although display 400 is not visible while any logically overSinq 
display IS appeanng on the screen of the TV 10. display 400 will become visible again if all of the logically overlavinq 
displays are canceled. i.e. by acluat.ig the cancel (X) button 56. Thus, until a program is selected for real time vie Jng 

appro'^ifa n;mber^f " '° ^^^"^^''^^ 

FIG. 5 shows a second level display 500 which is depicted as a file card menu 502 labeled 'TV which aooears 

iTtl r""^ "^"""^ °' "'^ ''"P' '^^S'"" "^^ ^^^^ TV indicates that the items that 

TJ ^^^^^'^'^f ^ TV shows, such as dramatic series, situation comedies, serials, regular variety shows game 
TrZl' f""^ S*"^^ and shopping were topics of other interactive buttons, these types of pro- 

hIT . °' ^ P^""- ''"^ '^'^ ""^"^ has interactive buttons labeled On Now 504 wLk- 

an actt^«^/.T "f '^"'T"'' '''' ''^ ^^Q^. file card menu 502 has 

62 IfZ^T .n ,T ' °' ''^"^"^ 52-56 and double arrow buttons 60 

^ iTrZ'f ^^T °' ^^'^^^ ""-^'"9 'hat will be performed 

If . IS selected In FIG. 5. the On Now button 504 is highlighted, and if selected by actuathg the aelect (O buttor64 

S (sho^TFir2r^'^^ '^""^ ^ ^""^ ^ ^""^'^ ^"""^ ""'""^ °' "^^^ "'"'^"^ ^^'"^ ^ 

Referring now to FIG. 6, display 600 shows what is on at the present time, which in this illustration is 6 30 p m A 
^nll e02 of all television shows that are on at the present time appears in FIG. 6. The reduced 

representation 602 presents each program that is presently on as a card in a tightly cascaded set of cards. The cards 
may be gray shade coded to distinguish between news shows, sport shows, dmmatic shows, comedy shows, docu 
r.!. !! "Ivf"."^ ^V°^^' '•'""^ ^^°9nize that color would be preferable for color television 

reduV^ 1 T f *° "^'"9 '° differentiated program types in the 

Itl T'' °" " "^"^''^P^'^^- Th"^- "^'"9 ^'^^^^ =o<^in9 within the reduced representation 602 would 
r^>!r '° '""'"^ '^""^ non^Bpons TV programming in the example shown. Up arrow 52 

^^l^ZnT ft '^P'^'^^'y ^ ^*"^°w 604. Which is slightly wider than the items displayed in 

TZ^Z' ^'^"'"^ representation 602 of the On Now subgroup in single steps. Motion 

th« rinl ^'^^ '^"'^"^ representation 602 is one dimensional, either up or down. The up arrows 60 and 

TnlT rr ^ "^"^^ respectively up and down the reduced representation 602 ^ 

oZZT ^""^ '^"^'"^ ^"'^^w 604 represent a further subgroup 

ldor604 ''"r^'^ °" "''^ ■'^'^ P^°3ram subgroup of the selection 

fo r^ .11 K ^ ^ ' ^'"^ ^"P'"^ ^^'^^ "^^ '° ^^d^^^d representation 602. This larger 

^ZfZ "T' '° °* P^^^^^"'^ 9rid display 606. The visible coding, i.e gL 

befwl^m?^ ' °^ '"'Ser fomi in grid disp^y 606 to aid the viewer differen'ale 

Detween the vanous types of programming offered. 

S JnH h ^ '"^"^ ^°°^dination with each othe? in response to the Up arrow 

of below thP^T °' ^^^"'^^ ^^''^^ ^^^-^ 605 and 607 to move above 

theTbre cTanneTnr. ' '^^^^ ^ ^V channel call sign. 

RA(^^ . nH H T ' ^""^ ^^^^'^^^ the programming database stored ir^ 

prelw Of 1^^^^^^^ IV°' °' ' '""^ °' "'^P^^ " '^^ hutt- 64 is actuated at this time, a 

ZerlrestorLhR^^^^ 
pZaminthf.rl^^^ 

aZ S or th?H c ^'"""'^ representation 602 and fom^erty highlighted in grid display 606. if the up 

P oq am Zun o^H f " ^''P'"^"^ '"^ °' ^^e frame 610 will change to the next 

S rplTsoo The h^? °' '^^"-"^ ^'^^-^ '° 'he previous arrangement of 

gener^nzed he^n m^^ " '''P"^ ^ S^nerali.ed help menu. This 

actua?er,he 0 nlr T"^ °' ^^''^^ ^ ^'^^ ''^"on. If the view button is 

actuated, the generalized help menu is replaced with The previous select (i e filter) view 

buttoT^q n??r7 1° ""if ^' ^""^ ^ ^ °' ^ P'^^'^"' ^=^^^900^ will be described. Actuation of the query m 

IZo t Jln rZ f '"^''^ 'PP'" °" °' ^ (^ho^^. in FIG. 1). On display 700 ha 

a help button 702. a categones button 704. a view button 706, a begin bunon 708. a favorites button 710 and a user 
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in a reasonable amount ol time, so further filtering, either by a shorter lime period, i.e. On Now, or a narrower calegory. 
i 0 basketball is needed. To change lo a narrower category, the viewer presses the query (?) button 5= which causes 
display 700 (shown in FIG. 7) to be displayed. Next, categories button 704 is selected which causes display 900 {shown 
in FIG 9) to be displayed. Next, basketball button 903 is selected which causes display 1 500 of FIG. 1 5 to be displayed. 

5 The Coming Up time filter of F!Gs. 12 and 13 has not been changed, so display 1500 shows the basketball programs 
coming up in the next 1 2 hours. As can be seen, the two-dimensional grid display 1 500 contains approximately sixteen 
programs, which is sufficiently small to review each item individually In a reasonable time per.od. Movmg active area 
1502 around two-dime nsk>na! grid display 1500 with the up and down arrows 52. 54 and/or the nght and left arrows 
56 58 causes the title and channel ol each program to be displayed in the top of the frame of ^^'splay 1500 to assist 

70 the reviewing and selection process. For example, the program highlighted by active area 1 502 is This Week In the 
NBA- and it is showing on CNN. Thus, by selective filtering the unwieldiy display 1300 of programs shown in FIG. 13 
is reduced to a manageable handful of display 1500. which Ihe viewer can navigate through individually in a reasonable 

^'""^Referring now to FlGs 16-23. another aspect of the present invention will be described. In FIG. 15 and the re- 
ts maining figures, a longer period of time is selected other than the one and a half hours or so retrieved by the On Now 
selection For example, it the viewer wishes to look at the programming available for the rest of the week in order lo 
select something to record on a VCR (not shown). Actuating the button having the number zero (0) of the keypad 50 
while watching a program causes the data view menu selection card, such as 900. of FIG. 9. to appear al the point in 
the menu-display hierarchy where the last selection was made. Actuating the zero (0) button again moves the viewer 
20 towards the broadest data view menu 400 of FIG. 4. and the viewer may stop at any display in order lo change time 
or subject matter categories. , . _ . . . , . 

Thus if a viewer were watching 7?.is Week in the NBA. and wanted to lind a program of interest that is on later, 
the viewer would first actuate the zero (0) button ol keypad 50 which would bring up the display of FIG. 10. Actuating 
the zero (0) button lour more times lakes the viewer through displays 900. 800. 700 and 500 of FlGs. 9. 8, 7 and 5 
25 respectively To gel a specific program title, the search button 509 is actuated, which causes FIG. 15 lo logically overlay 
the display 500 FIG. 16 shows a first display 1600 of an interactive alphanumeric selection sequence. First, all alpha- 
betic titles are sorted into groups ol five or less. If. lor example. Nova was the title of the desired program, the active 
area would be moved Irom its initial position (either at the top of the display or al the last group selected) lo the group 
of letters containing the letter N using the up arrow 52 or the down arrow 54 as shown in FIG. 17 followed by actuation 
30 of the select (^) button 64 This sequence would cause FIG. 19 to logically overlay FIG. 17. In FIG. 1 9, the active area 
is moved Irom its initial location al M lo the location ofN as shown in FIG. 17 followed again by actuation of the select 
(^) butlon 64 causes the display 2000 of FIG. 20 to overlay FIG. 19. In display 2000 are single instances of the first 
two tetters such as NYPD Blue is the only instance of N followed by Y. and multiple instances of the two letter string 
as denoted by the double right pointing arrows by NO. To continue the search for Nov^ the active area is moved to 
35 the line containing NO of display 2000 as shown in FIG. 21 using the down arrow 56 and actuating the select {^) 
button 64 which causes display 2200 of FIG. 22 to overlay display 2000. Now. Novb is the only instance of a program 
beginning with NOV. so the entire title Nova appears in FIG. 22. By moving the active area to the line labeled NOVA 
in display 2200 and actuating the select (^). button 64 causes the display 2300 shown in FIG. 23 to overlay display 
2200 with a schedule of times and channels for the program series Nova. 
40 FIG 23 is a one week schedule that is laid out as a logical three dimensional grid. The days of the week are 

displayed along one side, in this case vertically along the left side, of the display 2300. Time of day is displayed along 
a perpendicular side, in this case horizontally across the lop, for a twenty-four hour period. Thus, if an episode of Nova 
is scheduled at B OO p m on Sunday, a box of contrasting shade will be located in the intersection of the Sunday row 
and in the 5:00 p.m. column. The active area 2302 can be moved horizontally by arrows 56, 53 and vertically by arrows 
45 52 54 of keypad 50 If there are multiple occurrences of Nova on a particular night at a particular time, that fact is 
shown by a box located at the intersection of the row of that day and the column of that time, having an asterisk (") 
located in the box. The asterisk (*) indicates the presence of a logical slack ol multiple programs of Nova appearing 
on competing channels, such as occurs on Wednesday night al 6:00 p.m. To move or navigate through a slack of 
programs (or stack of episodes of programs with the same name, lor example) on a particular day at a particular time 
so slot, the viewer uses the double up arrows butlon 60 and the double down arrows butlon 62 for this third degree of 
freedom Because the display 2300 may require greater visual discrimination than program title as a matter of course, 
the frame information window 1 904 is larger than usual for display 2300. Further, frame 2304 is annotated with arrows 
indicating the existence of program episodes above or below the active areas' position in the stack, tithe cable 16 has 
access to 300 plus 'channels' of programming, it is conceivable that some programs, such as Nova will be offered by 
£S more than one channel at the same time. As described previously, once the viewer has moved the active area to a 
particular entry in two or three dimensions and actuates the select {/) button 64, a selection is made. In this case, the 
selection sets an alarm to record a specific channel al a specific time at some day in the near future, 

Referring back to FlGs. 1 and 2, overall operation of the apparatus of the invention is described. Program schedule 
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C0HI\'G form cede === = = = 

•T-is :cr:n displays a TV schedule for several hours of one day 
-..-s version uses drawing .-aethods for the program shapes 
'« opposed zo creating s controa shape for each program) 
pci-t k shoot- ZT -visually closest* navigation. 

Cptisn Explicit * * 

n!! t'^^"'^* snapshot -all data -^Irhin time period 

-."1 --'•^•^s.z&iB) As snapshot a snapshot for each day ir -he view 

.\Ddys A5 Integer 'nunber of days in display 

NSiocs As Integer "number of cine slots in display 

NStaticr. As Integer 'n^^er of stations in display 

D^m cc^f '"•''"^ °^ stations in database 

I'-m cc.or.ield As String "the database field that deterrr.ines item color 
Mthe field should contain an integer) 

^«r.5. s.aeGap = .05 'space at beginning and end of program 

TiTUV^"^^ ' t "^^^^ ^^""^ "''^ ^-"'^ F^=5ram shape 

Jim re£3ate 'reference dace for data tine slots 

c!pl' MTvp"',!:' ' '° ''"^^ '^i'^* i^^els (in 500 scale) 

^.-■Ti slo.sPerDay As Integer 'nu^TJber of slccs allowed per day 

oi- cur r Day 'number of current day 

Dir. starrTime "start day and tiire of display 

Di.- TSBegin As Long "first time slot 
Diir. TSEnd As Long -last time slot 
Dir. "Scurrent As Long 'current time slot 

Dir rowoffset 'distance between (tops of) rows in the schedule 
Suh ApplyFilter t! 

and the D3 field determining the colcr is set 
3im 1 As Integer 'counter 

Xf InStr {filters (currDomain) . "Stacion*) Then 

=o"'t°^i,- ^"^-"^^ '"-'^ ^' ' -.iable or =cn,.. „« 10 

Else 

WStflCion = KaxStation 
coltrField = 'Category- 

Ind If 

"or i » 1 -0 >jDays 

ailData(i) .Filter - f il ters I currDomain] 

Set fiiterData(i) = al IDa ta { i ) . CreateSnapshoc ( 1 

End Sub 

Sub CharceSel !d As String) 

■?erfcr.T.s -.he navigation according to the direction parameter 
current, firstMatch 'database marjeers 
-iri s-jccess As Integer 'boolean 
s As Integer 'station 
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i; No- success Then 
•check all to left for "closest:" 
F.KoveFirst 
A-hil* Not F.EO? 

If FCatarzTS') < TScurrer.i Then 

dist = TOistHoriz (Fl -Station' ) , F ( TinishTS" ) . s, TScurrcr. 
If dist < best Then 
'keep best so far 
best = dist 
success - True 
bestMarJc = F . Booknars 
End If 
End If 
F.MoveNext 

Wend 

If success Then 

'move to best one 
F.Booknark - bestMark 
TS = FfStortTS') 
End If 
End If 
self c a •Dc'-m* Then 

'check all programs below current ane, keeping 'closest' 
While Not F.EO? 

I* Fi- Station') > s Then 

dist = VDistVert(s, TScurrent, e, F ( 'Station- ) , Ft *StartTS" I , 

ishTS- ; ) 

If dist < best Then 
best - dist 
success = True 
bestMark = F.eooteMirk 
End If 
End- If 
F.MoveNext 

Wend 

If success Then 

F.Sookinark » bestMark 
TS = FCStartTS") 
End If 
self d = -Up- Then 

'check all progra-Tis above curren: one, keeping -closest - 
While Not F.30F 

If Ft -Station-) < s Then 

dist = VDiscVertfs, TScurrent. e, F (- Station" ) , FCStartTS"), 

;ishTS') ) 

If dist < best Then 

best = dist 

s'jctess a True 

bestMark = F-Boolaiiark 
End If 
End If 

F . Move Previous 

v;end 

If s 'access Then 
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pcpup.Tap = :bl7in-.ea).Top ♦ 2 * Ibiti-e ( 1 ) . Heia^- 
pcpup.Lefc . 2 

popup. WiSth = slocsPerDay - 3 
popup. Visible = True 
inPreview = True 
Inl Sub 

Sub Deselect () 

•sec selection info and go to TV 

userStarion » filierDocatcurrDay) i "Staticn- ) 
userStarc = f ilcerDaca (currSay) ( 'SLart ' J 
returnCode ■ TOT/ 
Me. Hide 
Znd Sub 

Sub DrawPrsg (colorlniex, stan, finish, scaiion) 
use drawing methods ta draw a pr-ogra.t shape 

Dim days tart 
Dim edge 

•convert a day/time to position in KSloc 3caie 
daystarc a startTiwe * currDay - 1 
L = (start - dayStartJ -48 
R = (finish - dayStarc) • 4B 

clip shapes off at day boundaries 
If 1 < 0 Then L = 0 

If R > slotsPerDay Then R = slotsPerDay 

■place in correct day, with sinall gap between programs 

edff* = (currDay - 1) - slotsPerDay 

^ = ^ ' edge ♦ sideGap 

R = R - edge - sideGap 

■correct for jin width to make sure prograzn will show up 
If R - L < MIN'ProgWldth Than R = L - HEJProgWidth 
set top according to station 

B = t - shpProg(0] .Height rowot.sec 

'draw the box with the correct color 

drawidth ■ l 

Me.FillScyle . 0 -solid 

Me.?ilicolor - Color (colorlndex Mod 9) 

L.ne (L. t)-Step,R - L. fl - t) , . 3 -.he line con^nd with argu.,ent B draws 
£nc Sub 

Sub Forr._Activate n 

_ AS inreger 'counter 
Static saver liter As String 

If saverilter = filters (currDomain) Ther. sameFilter = True 
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Tefjrr.Code * SHORTCUT 
Ke . nice 
Zr,d Select 

5 

' ir. ar.y case 
If ir.Preview Then 
DoPreview 

Els« 

pop-j? .Visible = False 
ind If 
Z.-.i Sub 

Sub ForTti_l,oad ( ) 

-im i As Integer 
IS Dim - 'as time 

'set form colors ar.d fonts 
Me.BackColor = £onr.COLOR 
shpPro5( 0) .BackColcr = BorderColcr 
lblDay(C I .BackCclor « bacJcgroundCOLOR 
lblA«.Bac)tColor = bacJtgroundCOLOR 
IblPK. 3ackCol=r = ba ck.gr oundCOLOR 
selector -BorderColor » BorderColor 
dayLineIC) .BorderColor = divideColor 
lbl7ime(CJ .roceColor = slotCOLOR 
25 shpSiot (C) .BorderColor • slotCOLOR 

If displayMode = 'T/" Then 

IblDay (0) .FontSize » smallFONT 

IblTinia (0) .rontSire = smallFONT 

IblAM. Fonts i=e = smallFONT 

IblPM.FoniSize = snallFONT 
^'^ popup. Fonts iie = mediumJOST 

Else 

IblDay (0) ^"ontSize = largeFONT 
IblTir.etOl .Fonts iie = largeFONT 
IblAM.FontSize = largeFONT 
35 IblPM.For.tSiie » largeFONT 

popup. FontSize =* largeFONT 
End If 

'set scale and size objects 

SireAForm Me. DispTsp. DispKeight. DispLeft. DispWldth 
Me. Scale (0, Ot-(5DC, 500) 

SizeACor.trol IblDay(O). 0, IblKeijht. 0. SOO 

•note: the AM.'PM labels would be placed when time is riltered 
SizeAControl IblPK, 0, IblHeight, C, 30 
SizeAControl IblAK, 0, IblHeight. 500 - 30. 30 

SizeAControl IblTir.e(O), IblHeight. IblHeight, 0, 50 ... n Aft 

45 SizeAControl shpSictiO). 2 * IblHeight ^ .5 * topGAP. 500 - 2 * IblHeight. 0. 50 

SizeAControi popup, 250, 200. 250. 200 
selector .Sorderwidtb * I 
dayLine ( 0) .Yl = 0 
dayLine (Oi .Y2 = 500 
'initialize variables 

SO 
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d Sub 

b MakeDispiay () 

reaie the display of prograias from the data 
Di.Ti i As Integer 'counter 
-ia d As Integer 'day 
Din F As snapshot 'convenience 

-f N"=t sa.T.eView Then 

■would n««d to reset capcior.s for times and dav 
End If ' 

■place program shapes 

Cls 'clear the form of previous drawir.cs 
DoZvents 'jnake it so 
For d = 1 To NDays 
currDay = d 

•draw lines to separate time slots 
For i = 0 To slots PerDay 
drawvidth = 4 

Line (i, shpSlot (0) .Top) - (i, 500), slotCCLOR 
Next i 

'draw progran shape for each prograri in data 
Set F = fiiterDatald) 
It Mot F.EOF Then 
F .MoveFirst 
30 While Not F.EOF 

DrawProg F(colorFiel = l , FrStarfJ, F( "Finish- 
F.MoveJJext 

Loop 

F .MoveFirst 
End If 
Next d 

'initialize stuff 
TS current = TSBegin 
currDay - 1 
5hp?rog(0) . Z Order 
selector- ZOrder 
Set F = filterDatatcurrDayJ 
' find a program to stare on 
Do While TScurrent <= TSEnd 

F.FindFirst Overlap (TScurrent , TScurrent! 

If Not F.NoMatch Then 
DisplayProg 
Exit Do 

End If 

TScurrent = TScurrent t 1 

Loop 

■niake sure TScurrent is in range 

TScurrent > TSEnd Then TScurrent = TSBegn 
Sub ■ 

Position (shape As Control, start, finish, station) 
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i; start! > fir.ish2 Then 

deltaT - Aisslsiartl - fin.ish21 
Elself start2 > finishl Then 

delta? = Ahs (start! - finishl) 

Else 

tJeltaT = 0 
End If 

\-nDistV*rt = deltaF. - 2 ' deltaT 
Er.d Function 

•====== FRAMZ form code ===»== 

•This form owns the standard info and status bars and allows 
• transfer o£ control ;ron\ form co forrr.. 
Option Explicit 

Sub Fcrtn_Activat« () 

■decides which other form should show in its display area 
Select Case retumCode 
Case SHOWVirrf 

views (currDoMin) . Show 
Case PICK 

fnr^elect.Show 
Cas* TOTV 

frTT.CV.Show 
case LAsrviiW 

san>.eFilter = True 

viev.*s (c'jrrDornain) .Show 
Case STARTUP 

*do nothing--don* t want rolodex to show yet 
Case Else 

f rsOex. Show 
End Select 
End Sub 

Sub For7n_KeyDown (KeyCode As Integer, Shift As Integer) 

If KeyCode = AscCQ') Then 
End 

End If 
End Sub 



Sub Fom_Load I ) 

'set colrrs and fonts 
Me.SackColor « formCOLOR 
sspInfo.FontSize ■ mediumTCNT 
sspStatus . FontSize = mediiur.FONT 
■use builtin object to size background 
ScrWidth " Screen. Width 
ScrKeiffht » Screen. Haight 
If displayKode » •mini* Then 
'for taking screen prints 
ScrHeighu - ScrKeisht ' -54 
ScrWidth = ScrWidth • -712 
dispIayMode = 'TV" 

Else 
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database sr.apshsts 
Disi ailDaca As snapshot 
Di.Ti itemDaca As snapshot 
3i.-n scoreDaca As snapshot 
3---tv deptDaca As snapshot 
Di.T. scuffDaca As snapshot 
^in filCerData As snapshot 

Din marker(noO) As String ■ boofcTiarks of aach HAXDISPLAY iters 
Ioc5:ar-.{1COO) Tlte-n index for start of locator 

Sub ApplyFil-er () 

•filter Che data according to user choice 
Dim sartString As String 

If M« Is TVlist Then 

captionField » 'Title" 

sortString = 

colorFieid = 'Type* 
Elself Ke Is MOVlisc Then 

If sameView Then 

keep allData as it is 

Else 

"reset allData to all movies 
CoadData 

allDa-a. Filter = viewFilter 

Set allData = allData .CreateSnapshot ( ) 
End If 

captionField = 'Title" 
sortString » -Title' 
colorFieid - 'Type* 
Elself Me Is SHOPlist Then 

;note: This would all be done totally differently. Don't bother 

understanding it, just rewrite it. 
Select Case filters IcurrDomain) 
Case "store" 

browsing = 'store ' 

Set allData « storeData 

capticnField ■ 'name' 

filters (currDoraain) = ■ " 

sortString = 'name" 

colorFieid = 
Case 'dept- 

brswsing = 'depf 

deptData.FindFirst 'name = t userS^ring fc 

Set allData - deptDnta 
filters (currDanain) = ■* 

Else 

browsing = -stuff" 

filters (currDomain) = -[dept code] = - & deptData ( "code" ) 
Set ailData = stuffData 
End If 
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Case -Up- 

If iocS«-ecced > 1 Then 

locSelected « locSelecced - 1 
RedoDisplay 
End If 
Case "Down" 

If locSe-acced < MAXLCXT Then 

locSeiected = locSelected ♦ 1 
RedcDlsplay 
End rf 
End Selec:: 
Er.d Sub 

Sub Char.geSel (direct As String) 
'navigate up or down one selection 
Select Case direct 
Case "Up* 

If icenvSelected > 1 Then 

■move up within current display 
iteitiSeiected » icemSelected - 1 
selector. Top = itenvBoxl itemSelected) .Top - GAP 
rltemiOI-Top = ritem twhichrltem ( itenSelected) ) .Top 
rItemtOl .Left - locL - GA? 
rltem(O) .Width = locW ♦ 2 ' GAP 
Setltemlnfo 
Elself locSelected > 1 Then 

■display previous section of list 
iteriSelected = MAXDISPLAY 
locSelected = locSelected - 1 
RedoDisplay 
End If 
Case "Down" 

If icemSelected < HAXDrSPLAY Then 

•move down within current display 
'do not ir.ove to select an empty item 

If (locSelected - 1) * KAXDISPLAY + iteraSelected < MAXITEM Then 
itemSelecced = itemSelected * 1 
selector. Top = icemBcx ( itemSelectedl . Top - GAP 
r:teri(0) .Top » rItein(whichrItetn(itemSelected) ) .Top 
rIteniO) .Left » locL - GAP 
rrtenlO) .Width • locW * 2 ' GAP 
Setltemlnfo 

End If 

Elself locSelected < HAXLOC Then 
'display next secticr. of list 
itemSelecced ■ I 
locSelected = locSelected * 1 
RedoDisplay 
End rf 
End Select 

rltem(O) .Visible - True 
End Sub 

Sub DoPreviev ( ) 
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i-b EndPreview () 

'go bac:< to regular lisr operation 
Din i As Integer 'counter 

previewWin. Visible = False 
in?review - False 
locator. Visible = True 
selector. Visible = True 
previewWin. Top = disployList . Top 
HedoDiaplay 
End Sub 

S'-b Form_Activate [! 

Di.ii i As Integer 'counter 

Ei.T^ section As Integer 'count the nuriher of locator locations 

Din ^'Vislble As Integer 'tally the visible shapes in a section 

Dini nsg As String 

Siatic SBveFilcer As String 

Static SBveview As String 

•check new filters against current filters 

If Mot saneView Then sameView = (saveX'-iew = viewFiiterl 

saveView = vievFilter 

If Not sa:.eFilter Then sameFilter = tsaveFilter = filters IcurrDosaini ) 
sa.v*f liter = filters (currDomain) 

SetStatus currVi.w(currDoniainJ i currFilter ; currComaLu . greyCOLOR 

If sameFilter And sameView Then 

•keep everything the same as last time 
If newUser And Not Ke Is SHOPlist Then 
button.. P'P^P-^-P^io" = '^o Change th. category shown, press the 'Category 

popup. Visible - True 

newUser » False 
End If 
RedoDisplay 

Else 

"clean up display 

Setlnfo -Selecting data, please wait...-, GREY 
If KAXITEM = 0 Then 

previewWin. Caption = •■ 

previevWin. Visible - False 
End :f 

Do Events 

If inPreview Then EndPreview 

far i = 1 To MAXEISPLAY 

itemaox(i I .Caption - 
Next i 

Far i = 1 To MAXITEM 

Unload rltemli} 
Next i 
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If f ilterDaca ( 'ScarcTS- I < TS Then 

rlcem< i) -Lef t ■ rlcera( i) . Left - reducedEXTRA 
rltemd) .Wid'rh « rltem( i ) .Width * reducedEXTRA 

End If 

If f ilterDataCFinishTS'l > TS Then 

riteral i) .Width « rltemti ) .Width - reducedEXTHA 
End If 

Er.d If 

rlter.(i) . ZOrder 
rlten{i) .Vijibl* ■ True 
f ilterData.MoveNcxt 
Next i 

KAXLOC = section 

locStart( section - 1> = KAXITEM • 1 

'set length of mins«l«cc=r tuse rltem(O)) 
rltemtO) .Left = locL - GAP 
rltejn(O) -Width « locW * 2 ' GAP 

•initialize selector and locator 
itemSeiecced « 1 
locSelecced » 1 , . 

locator. Visible - True 
rltem(O) .BaclcColor » highliohtCOUDR 
'sec the capticcs in the iteiaSoxes 
Re do Display 
End If 
End If 
End Sub 

Sui Form_KeyDown (KeyCode As Intejer, Shift As Integer) 
popup .Visible = False 
Select Cas* KeyCode 
Case AscCQ") 

End 
Case B_BACK 

If Me Is SHOPlist And browsing = 'item' Then 
'not exactly what we want 
recurnCode = ALPHA 
Ke.Hide 

Else 

returr.Code = SACK 
Ke.Hide 
End If 
Case B_HELP 

InvokeHelp 
Case B_PREVIZW 

If in Preview Then 
EndPreview 

Else 

Do Preview 
End If 
Case B_SELECT 

If MAXITSM > 0 Then DoSelect 
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previewWin. FoncSize - mediumFONT 
popup. FontSize « airalirONT 
End If 

rltem(0] .BacJcColor » icemCOLOR 
selector. FillColor - highlightCOLOR 
diaplayLisc.FillColor = bacXgroundCOLOR 
previewWin. BackCoior a bacIcgrour-dCOLOR 
locator. FillColor « bacJcgroundCOLOR 
iteir^oxiOl .SockColor s iteraCOLOR 
leftArrowlOJ .BackColor - itemCOLOR 
rightArrow(O) .BackColor = icemCOLOR 
shpSlot.aorderColor = slocCOLOR 
"size the objects to the screen 

SizeAForm Me. DispTop, DispHeighc, DispLeft. DispWidth 
Me, Scale (0. 0)-(1000, 1000] 

SizeAConrrol locator, T - CAP. H * GAP, locE, - GAP, locW - 2 ' GAP 
SizeAControl shpSlot. T. H, locL - reducedEXTRA, locW - 2 • reducedEXTRA 
SiieAControl displayLisC, T - GAP, H - GAP, dispL, dispW 
SiseACon-rol popup, dispW / 2. 4 * locW, dispW / 2, 4 • IccW 
CPlace 1. previewWin, displayList 
locator, ZOrcer 

ShpSlot. ZOrder ^ . 

rIcemtO) .ZOrder 
itemRoom = H / MAXOISPLAY 
2 ' EXTRa"^"*^^°^ iteinSox(0>, T * (.5 • GAP), itetaRoom - GAP, dispL ♦ EXTRA, dispW - 

(7 '^'t:S:xt"^e^^^^^^^^ * '".3 • i.e^ox.O). Width,. 

It displnyMode = "TV Then 

pacch(Ot .Left • B.08 • itemflox ( 0 ) .Width 

patch tOl ..Height » 3.7 - it«riEox(0> .Height 
End If 

= izeAControl lef tArrow(0 ) . T * (.5 - o«>» . itei^oom - GAP. dispL. EXTRA 
EXTRA E^5S ^i?htArrow(0), T * (.5 ' GAP,. itemRoon. - GAP. dispL * dispW - 

SiieAControl selector, T, itemRoon + GAP, dispL. diSDW 

selector. ZOrd«r 

For i = 1 To MAXDISPLAY 

•Load item3ox{i) 'Now created at design time-fixed number (6) 

ite.n3ox(i) .Visible = False 

CCopy icetnBoxtO), itemBox(i) 

patchli) .Visible • False 

CPlace 0. patch(i), patch (0, 

itmiBoxtii .Top - iteinSox(O) .Top * (i - i) . iceraRooro 
Load leftArrow(i) 

leftArrow(i) .Top = itemBojt ( i, .Top 
Load rightArrowti) 

rightArrow(i) .Top - itern3ox I i t .Top 
Next i 

•load the list data and set up the display 
=*«.«FiUer = False 
sameview = False 
LoadData 
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zte capcic--:s in ihe itenvBoxes co correspond to items in locator 
' repcsition locator and selector, update info box 

J Din last As Integer 

Din i As Integer 

Dm InoBX As Int«g«r 'index ot rlcem 

T£ l-JOCzrEM - 0 Then Exit Sub 
■figure first item location 
10 f ilterData.SooJ«nark = marlcer t locSelected) 

Index = locStart (locSelected) 
For i = 1 To HAXDISPLAY 

If filterData.EOF Then 
j5 'hide empty itemBox 

iten>Box( i) .Caption - 
itemBoxlil -Visible = Fals« 
leftArrowli) .Visible • False 
rightArraw(i) .Visible « False 

Else 

20 whichrltentil = Index 'so we can highlight the correct rlcem (reduced 

itera) 

If cclorField <> Th«n it«»aox(i) .SackColor = 
Color (filterData(colorFieid) Mod 9) 

itenvBox(i) .Caption - filterDato IcaptionFieidl 
If Net inPreview Then iteroBox ( i ). Visible » True 
If Me Is TVlist And Kot inPreview Then 

•show arrows to reflect program length 
If filterOatal "StartTS" ) < TS Then 

leftArrow(i) .BacJcCoIcr = itemBoxl i ) . BackCclor 
l»CiArrow(i) .visibl* = Tru« 

Else 

leftArrow(Ll -Visible » False 
E.nd If 

If f ilzerData t "FinishTS* ) > TS Then 

right Arrow(i} .BackColor * itemSox ti) - BackColor 
35 rightArrow(i) .Visible - True 

Else 

rightArrowd J .Visible = False 
End If 

'show color patch for subcategory 

pat=h{i) .FillColar - Color i filcerDaca ( 'Category ' ) Mod 9) 
'° patchtil .Visible = True 

End IE 
last = i 

Index = Index - i 
£ i 1 terDa t« .MoveNext 
4S End If 

Next i 

'Dc no- allow biarJt tc be selected 
If items elected > last Than 

itenSelected = last 
Zr.d If 
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■= = = - = - MESSAGE fsrra cede 

■This form is used by Help and some lists ta display inforna-icr.. 

^err.porarily covering up the current forr,. 
Option Explicit 

Const GAP = 500 

Sub ~orm_Activate ;i 

textArea .Caption = 'JscrKss 
End Sub 

Sub rcrra_KeyDown (KeyCode As Inteffer. Shift As Integeri 
Select Case KeyCode 
Case Else 

returrCode = KeyCode 
He. Hide 
End SelBst 
End Sub 

Sub 7onn_Load () 

'set colors and fonts ■ 
Ke.BacJtCcior • itemCOLOR 
texcArea.BacJcColor = itemCOLOR 
texCArea.FontSize = largeFONT 

'sec sizes 

SizeAForzi He. DispTop. DispHeight, DispLeft. DispWidth 

SiseAControl textArea, GAP. DispHeight - 2 • GAP, GAP, DispWiath - 2 • GAP 
■ initialise 
textArea. Caption = 
End Sub 

'"="" ROLODEX Jonr. code 

'This form shows the main menu and filter menus. 

•Unimple-Tiented: Have filter button color correspond to type/category co"-r 
Option Explicit 

Dim BlinkControl As Control "pointer to blinking highlight 
Dim parent As Integer 'nuinber of parent card 
Dira current As Integer * number of current card 

'special cards 

■note: these nust be updated each time the number of filter cards in the rard 
datafile changes 

Const filterCARD =1 "TV filter menu 
Const (T.filterCARD = 6 8 'movie filter menu 
Const hcmeCARD = ?6 'main menu 

Dim lastCard As Integer 'holds number of regular card while in filter 

Const KAXTITLE = 3 "WARNING: A change in MJOCTITLE req-jires a change in code for 
LoadGraphics 

Const CARDSHIFT .2.5 'for card display —amount change in card placement 

Const yjUCRows = 3 "for card display—number of rows of buttons 

Const KAXCOLS = 3 'for card display-nuiriser of columr.s of buttons cn a card 
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sspConc .BacJcColor « sspCardCO) .BacitColor 

Zoom IC, sspConc, sspCard (depth) 

DisplayCard cardNo 

sspConc .Visible » False 
Znd If 
Case 'Select* 

index = Cards (current ). selected 
If index > C Then 

CCopy ssplT;eri [ index) , sspCont 

sspCor.c .Visible = True 

sspCont.BackCclor » sspCard ( 0 i . SackCc lor 

SiieACcr.trol 93pCard{OI, 0, SOO, 0. SCO 'size of whole fom 
2ocm 10. ssFC=r.t. sspCard(O) 
Er.d If 
End Select 
End Sub 

Sub Blir.kStarc (C As Concrol, vis I 
'enable blir.king cbjeci 

Set BlinkControl = C 

BlinfcConcrol -Visible • vis 

tmx 31 ink . Enabled » True 
End Sub 



Sub BlinkStcp (vis) 

■stop blinking object, leaving visiblility as vis 
tmrS link. Enabled = False 
i; BlinkConcrol Is Nothing Then 

'd= nothing 
Else 

ElinkControl. Visible '= vis 
End If 

Set ElinkControl = Nothing 
End Sub 

Sub BuctcnAccisn O 

'perform action associated with selected button 
Dim button As Integer 
Din cardNo As Integer 
Dim msg As String 

buttsn = Cards (current) .selected ' item nuirber o£ seleczed button on parent card 
card^.'Q = Cards (current ). item {button I 'card n-jrJDer of selected button 
If button < 1 Then Exit Sub 

Select Case Cards (cardKo }. actionCode 
Case act^]0^:E 

'an inactive button 

Setlnfo "This option is not yet available.', greyCOLOR 
Case actNEXT 

display the next card 

Ani.T^te 'Next-, Cards (current ). item (but ton) 
Case actTOyJVIN 

■change current domain befcre going to the next card 



SS 
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Case ac::JiiLPKASHOP 

'gee a string from user, search for iters bejinning with use- sz'-n- 
r.cce: this would probably be very different ' 
g Animate 'Select*. 0 

Setstatus -Shoppin?. • & Cards (cardr:c) .nane, greyCOLOR 
msg = Cards (card.\'o) .accionData 
Set Info msg, YELLOW 
Wait ;mAlpt:a 

If retumCcde <> BACK And userString <> •• The.-. 
3araeFilcer - False 
filters (currDoffAin) = •iteir.* 
Set views (currDosain) » listFrmicurrDoriain) 
retumcode = SHOWV'IEW 
Me. Hide 

Cass accALPHATV 

■allow user to select a show title 
Animate 'Select', 0 

SetStatus -TV, • t Cards (cardNo J .nana. greyCOU)S 
retumCode = PICK 
^° Me. Hide 

Case actALPHAMOV 

'This is not hooked up to work, but would probably be 

a lot like actALPHTV 
'A.iiinat« 'Select', 0 
2s Case actjiLTER 

•send a new filter to a TV view 
filters (currDomain) - Cards (cardNo 1 . actionData 
currFilter(currDonain) - Cards (cardNo) . infotext 
santeFilter o False 
sameView = True 
retumCode = SHOWVIEW 
Me. Hide 
Case actMOVIE 

'show a movie list 
Ar-imace 'Select* , 0 
35 current > homeCAao Then 

'the view (a filter) is changing 
currViewtcurrDomain) = Cards (cardNo) . ir.fotext 
viewFilter = Cards (card:Jo) .actiorData 
sameView = False 
saaeFilter « False 

*o Else 

'the category is changing 

currFiUerlcurrDoTT^in) - ■ 4 Cards (cardNo) . infotext 
fi-ters (currDomain) = Cards {card-Vo J . actionData 
sameView = True 
(5 sar-eFilter = False 

E.-.d If 

Set views (currDomain) » listFrralcurr^cnainj 
returnC2de « SHOWVirrf 
Ke.Hide 
Case actSTCRE 
« -show a lisc of stores ' 



37 



page -37- 



EP 0 735 749 A2 



3S 



c'jrxDonain » T*' 
f ilcers (currDorrain) = 
sa.-neFilter = False 
sanieView = True 

Set views ( cur rDomain) = listFrr.i =urrDoinairJ 

reCurnCode •= SHOWVIEW 

Me .Hide 
Case ac-KEYS 

•Cnly for deveiopmenc, wouldn'r stay 

SeCKeyg Cards (cardNo) .acticnDaca 

SecStaLUS Cards ( cardNo ). infotext . icemCCLOF. 

current = homeCAFD 

DisplayCard current 
Case actTAsS 

'only for development 

ToggleTabs 

^"sgetr-Bad action code for card • i Cards (card.No) .name 
Stop 
End 
End Select 
Er.d Sub 

Sub ChanffeSel (direct As String) 
'do button navigation 
Dim n As Integer 

Dim last As integer, Sel As Integer 
n = Cards (current) .Nlteir.s 
last = Cards (current! . selected 
If last - 0 "hen Exit Sub 

If direct = "Righf Then 
•move right with wrap around 
If last = n Then 
Sel * 1 

Else 

Sel = last 1 
End If 

Elself direct - "Left" Then 
'mcve left with wrap around 
If last = 1 Then 
Sel - n 

Else 

Sel = last - 1 
End If 

Elself direct = Then 
'rr.ove up, no wrap around 

If last > M«JCCOLS Then 
■ sel = last - KAXCOLS 

Else 

Sel = last 
End If 

Elself direct = ■Down' Then 
'nove d='^. , no wrap around 
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NIteais = Cards {current) .Nltems 

Sec Area = sspCard (Cards (current (. level) • this is a pointer -oc a c-dv 

■calculate size of b-jtton " 

Ox « Ar«a. Width * .9 / MAXCOLS 

^ - Area.Heighc • .9 / KAXROWS 

w ■ Ox • . 9 

If w > 3 0 Then w = 30 

h a Dy . .9 

n > 20 Then h = 20 

ssp31ir.k3G. Visible * False 
sspaiinkBG.ZOrder 0 "brino to front 
'place and show each button 
For i 1 73 Hitema 

5sprte[n(i| .Width = w 

ssprtem(i) .Height « h 

ssprtem(i) .Caption - Cards (Cards (current ». itenX i )) .nafr.e 
If Cards (Cards Icurrenc 1 .item(i) I .actionCoda = actNONE Then 

"turn inactive buttons grey 

ssplteia(i) .SackCoior « sreyCOLOR 

Els« 

sspItemCi) .BackColor = icemCOLOS 
End If 

X = Area.Lefc * .05 • Area. Width ♦ ( ( i - 1 ) Mod MAXCOLS) - . 5 ) • Dx 
Y - Area-Top * .05 • Area. Height * {Int((i - 1) / MAXCOLS) * . 5 ) • Dy 
Centerrtem sspltein(i). x. Y 
sspltendl .ZOrder 0 
5splten(i) .Visible = True 
Next i 

■make blinker bigger' than buttons 
CPlace 2. sspSlinkSG, aspltead) 

•hide unused buccons 

For i a Nlcems 1 To KAXITEK 

SBpItein(il .Visible = False 
Next i 

UpdateSel 
End Sub 

Sub Farn'_Activace () 
check for a recum code frocn another fcrm 
sspCont .Visible = False 
Select Case returnCode 
Case BACK 

-f current < homeCARD Then current = lascCard 
Se^Status "Use arrows and select or use keypad.", greyCOLOR 
3ispia>'Card current 
UpdateSel 
Case SHORTCUT 

='^rrent = homeCARD 

S*t3tatus -Use arrows and select or use keypad.". crevCCLni; 
DisplayCard current 
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20 



rase B_?«Gr:03WN 

•use numer-ic key pad to choose a buitcn directly, without navigation 
Case 3_1 

S If Cards (current) .KI tens > 0 Then 

cards (current) -selected » 1 
UpdateSel 
ButtorAction 
ZnA Zi 
Case B_2 

If Cards (current; .NTtens > 1 Then 

Cards (current) . selected = 2 

UpdateSel 

ButtonAction 
£r.d i; 

15 Case 3_3 

If Cards (current! .NItems > 2 Then 
Cards (current) .selected - 3 
UpdateSel 
ButtonAction 

End r; 

Case B_4 

If Card* (current) .NIt«in» > 3 Then 
Cards (current) .selected = 4 
UpdateSel 
ButtonAction 
25 End If 

Case B_5 

If Cards (current) .NItems > 4 Then 

Cards (current) -selected = 5 

UpdateSel 

ButtonAction 
End It 
Case B_5 

If Cards (current) .NItems > 5 Then 
Cards (current) .selected = S 
UpdateSel 
35 ButtonAction 
End If 
Case B_7 

If Cards (current) .NItems > 6 Then 
Cards (current) . selected = 
UpdateSel 
ButtonAction 
End If 
Case B_a 

If Cards (current) -NItems > Then 
Cards (current) -selected ■ 8 
« UpdateSel 

ButtonAction 
End If 
Case B_9 

If Cards (current) .NItems > 3 Then 
Cards (current) .selected = 9 
UpdateSel 
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sspCarctiJ .rep = sspCarcfi - l).?op - CARDSKIf^ 
sspCardd ) . ZOrder 
Load sspTitleti) 

sspTicleliJ .Top = sspCard(i) .Top - sspTi tie ( 0) . Ke- c^- - 2 
Seiec; Case ti Hod KAXTITIE) 

■r.oce: those casts are naz flexible for differe-ic KAXT'T- 
Case 1 " 

sspTicIeli) ,t«it = sspCard ( i ) . Left 
Case 2 

sspTitlefi) .Left - sspCardfi) .Ufi * sspCard ( i ) . Widt"- 
sspTitleii) .Width / 2 
Case 0 

sspTirleCi] .Left = sspCardfi I .Left * sspCa-d(-) ■y--'-'- 

H^d Select * 

sspTitle( i ) . ZOrcer 
Next i 
En 2 Sub 

Sua PopulateCards i) 

•T.Tis subroutine reads in the card data fron the 
•CARDFILE file defined as a constant. The cards 
•Will be nmubered 1 to the number cf lines (cards) 
^in the file. All speeiai cards should coire before 
•-he home card (by convention), and ore named as 
•constants in the declarations. Each card record 
•should have a level (integer), item selected (integer) 
'a nar>e Istring), an info string (string), and 
'•an action code (integer), if the action code is greate- 

than aztHEX-:. one additional input (variant type) is read 

for the card. 

Dirr. last As r.^ce9er. parent As Integer 
Dini selected As Integer 

Di™ index As Integer, ice.TJio As Integer 
Dim level, title, tesct, action 
Open CARr-FlLE For Input As »1 

■ma'fce durrny parent for to? level 
index = 0 

Cards (index) .name = 'root* 
Cards (index) .level = 0 
Cards (index) .Nit ems = 0 
While Not EOni) 

last = index 

index » index * l 

Input H, level, selected, title, text, action 
Cards (index) .level = level 
Cards (index) .selected = selectee 
Cards [index) .na.Tie ■ title 
Cards ( index) . ir.fccext = text 
Cards ( index) .actionCode ^ action 
action > actN'EXT Then 
Ir.p-jt tl. action 

Cards ( index) .actionData = act-on 
^"d -f 
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i = Cards (current) . selected 

If i > 0 Then •something is selected 

Set S » sspltem(i) 'S is pointer to button 

■find center of button 
. X = S.Left * S. Width / 2 

Y ■ S.Top + S. Height / 2 

'put blinker behind button 

Centetltera sspElinkBG. x, Y 

Tesa-ne blinking 

ElinkStart sspBlinkBG, True 
End :f 

text = Cards ICards (current) . item (Cards (current I . selected) ) . ir.fotext 
colsr = sspltentcards (current) . selected) .BackColor 
Sec^r.fo text, color 
End Sub 

Scb Zoom (n As Integer, C As Control, Dest As Contrcl) 
•anir*tes control C changing size to control Dest 

Dim i As Integer, j As Integer 

Dim dl, dw, dt. dh 

dl = (Dest. Left - C.Left) / n 

dw a (Dest. Width - C.Width) / n 

d: = (Dest. Top - C.Top) / n 

dh = (Dest. Height - C. Height) I n 

C.ZOrder 

C.AutoSize = False 
F=r i = 1 To n 

C.Kove C.Left + dl , C.Top + dt , C.WidCh ♦ dw. C.Height * dh 
C .Refresh 
Next i 
End Sub 

' ==== = = SELECT form code 

'This form is another attempt at alphabetic input that allows only valid input. 

• It relies on the TV titles database which has two tables. The reference table is 
used first 

' and contains a ccunt of all items starting with each letter of the alphabet or 
with a 

' syrrjjol or nuiriber. The user is first presented with a list ci possible starting 
letters 

' {each item in the first on-screen list My have several letters in it). Once a 
starting 

' letter is chosen, a snapshot is roade of matching entries frcTi the table of title 

• Each list the user sees has only valid choices for the next letter, or full titl 
If 

' a particular title is distinguished frar-, all others by the letters chosen so far 
' The best '-ray to understand is to see the form in action before reading the code. 
'The code cculd easily be modified to work with other data such as lists of movies 
etc. 

'ncce; the non-proportional font used in the iter-Boxes is Courier New 
Option Explicit 

Din DB As database 'the full database 

Dir. listdOOCi As Strir.g 'the' list of selection strings 



47 



page -47- 



EP 0 735 749 A2 



If locSelecced < KAXiOC Then 

locSelecced » locSciected * 1 
RedoDisplay 
End It 
End Select 
End Sub 

Sui ChAJigeSel (direct A.S String! 
■Pcrfom: list navigation 

Select Case direct 

Case "Up- 

If itemSelecced > 1 Then 

'move up within itcrw currently displayed 

itemSelected = :.temSelected - 1 

selector. Top = itfiT^oxfitemSeiected) .Top - GAP 

rIterr.tOl .Top = locator. Top - rowOffset ' (it«=iS«lected - 11 

Setltenvlnfo 
Elself lo=Solected > 1 Then 
'display previous section of the list 

itemSelected « MAXOISPLAY 

locSelected » locSelected - 1 

EedoDi splay 
End If 
Case ■Do'*'n' 

If ite.TSelected < HAXDISPLAY Then 

'move down within items currently displayed 

'do not move to select an empty item 

If (locSelected - 1) ' MAXDISPLAY • iteir^elected < MAXITEM Then 

itemSelected ■ itemSelected ■»• 1 

selector. Top = itemBox(itetnSelected) .Top - GA? 

rltem(O) .Top = locator. Top ♦ rowOffset • (itemSelected - 1) 

Setltemlnf o 
End If 

Elserf locSelected < MAXLOC Then 
'display next section of list 
itemSelected = 1 
locSelected s locSelected ♦ 1 
RedoDisplay 
End If 
End Select 
End Suh 

Sub Deselect () 

■finish with leaf value or create a new list based on user's choice of prefix 
Dim index As Integer 
Dim count As Integer 
Dim i As Integer 
Dim nextChar As String 
Dim looicing As Integer "boolean 
Dim title As String 

J-'^r ' locstartdocselectedl - itemSelected - 1 -index i.-, lis. of item 
sej.ec _ed 

If leaf I index' Then 
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Er.d If 



•data assuined -o be already sorred 

If Not iniriallisr Then 

'scill need to crea-.e new lisi frcm daca 

Set filterDaca = fiUerDa-.a .Create^napahot ( ) 

f i 1 terData. . MoveFirs t 

UrT- LcC ■) TO AscrZ-) 'space, punc-.uaiion . and lezzers 
Z.e-.'sTolL bl fixed up by ... .ryin. •ver-/ single one. go s.r-.n. .o 

next db item's char 

count - 0: looking » True 



count - V . a 

tjv,ii» Mot f- IterUata.EOF And looking 

LxtCh!: "«i<JUiU«r=.tM-Sel.=tTicle-,, Len (corrPr.f .X. 



» 1 



If nextChar = Chrlil Or nextChar = LCase (Chr ( il 1 Then 
co-x-ic = count ♦ 1 
f ilcerDaca.McveNex- 

Else 

looking = False 
End If 

Wend 

Select Case count 
Case 0 'do noc add to list 
Case 1 'n*k« a leaf entry 
f ilterData .MovePrevious 

UstaistEidr=''(i^P«sand( (fiUerDatai -selectTitle- 1 ) ) 

leaf (listEnd! = True 
f ilterData .MsvcNext 
Case Else 'make a non-leaf entry 
f ilterData .MovePrevioj 3 

li*-E-id =» liscEnd * 1 , . . 

''sUUstEnd) - currPrefix i 'W 6 Chr(i) 'underUne new char 
".oU- Underlining is iust one mechanism for e.phasxz.ng what is 



different 



display 



leaf (listEnd) - False 
f ilterData. HovcNext 

Er.d Select 

irfilterData.RecordCount <- MAXD I SPLAY Then 

■redo Che list to have ^ust leaves ir. i-, i- t..ey ai- 

listEnd - 0 
f ilterData. MoveFirst 
V.'hile IJct f ilterData . EOF 

liscEnd = listEnd - 1 , ^-.i 

liscdistSndl = fixAmpersanddfilcerDataCSelectTitle ))) 

leafdistEndt = Tr-je 
f ilterDaca .MoveHext 

Wend 
End :f 
End If 
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Dim itemRoon 

'sec colors and fonts 

itemBox(O) -FcncSire = largeFONT 

riffh:Arrow(0) .Fon-Size » largeFONT 

rrtem(O) .BackColor - i^cnCOLOR 

selecror.FillColor = highlightCOLOR 

displayList.riilCoior = backgroundCOLOR 

locator. FiiaCoior = backgrciindCOLOR 

ictmEoxOl .SackColor = itemCOLOR ■ 

riohtArrow(O) .BackColor » icemCOLOR 

shpSlot.3orderCoIor = slocCCLOR 

'size and place the objects to the screen 

SizeAForm Me. DispPop, DispHeigh:. OispLeft, Dis-Wid-^ 

Ke. Scale (0, 0)-(IOO0. 1000) 

SizeAControl locator, 7 - GAP, H ♦ GAP. locL - GAP, locW * 2 • GAP 
S^eAControl shpSlot. 7. H. locL * reducedEXTRA. locW - 2 - reducedZXTRA 
Si = eACoatrol displayList. T - GAP, H * GAP, dispL dispW 
locaccr.zorder ^ 
shpSlot .ZOrder 
rltem(O) .zOrser 
itemRoom - H / MAXDISPLAY 
2 ' Ij^S''"''"' ^terr^axfC, T * (.5 • GAP,. itemRoom - GAP. dispL . ZXTRA. dispW 

sizeAC^r^^ leftArrow(O), T > (.5 • GAP,, itemftoom - GAP. dispL. EXTRA 
EXTR^ SS'"' rxghtArrow(0,. T . (.5 • GAP,. ite»Rocm - GAP. dispL . dXpW - 

SizeACoatrol selector. T. iCemRcc::. ^ GAP, dispL disoW 
selector. ZOrder ' 
For i ■ 1 To MAXDISPLAY 

Load item3ox(i, 

itemSox(i) .Visible 3 False 

itemaoxd) .Top = itemflox CD, .Top * (i . 1, . itenLRcom 
Load rightArrowti, 

rightArrowtii .Top = itereSox I i ) . Top 
Next i 
End Sub 

Sub LoadData ( ) 

Dim refSnap As snapshot 

P.""o^^™" • "^"^"^ '""^-^ «' i""r .licked in on. ice»B»x 

■fill initial selection U*t 
listEnd - 0 

Set Da = Oper.DacabasefT/Titles, 

Set allData - DB . CreateSnapshot ( "Titles • ) 

'create initial list 

Sec refSnap = DS . CreateSnapshot ( -Reference- , 
refSnap.KoveFirst 

together . MAXTOGETHER 'indicate r.eed izr new item 
ffhiis r;ot ref Snap. EOF 

Select Case ref Snap ( 'Number- ) 
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rlremfC: .Visible = False 
rICemlO) .Top = T 

rlcemtO] .Left » locL ♦ reducedEXTRA 

r:t:em{0) .Width • locW - 2 • redueedEXTIUV 

rrtem{0) .BackColor • iceniCOLOR 

f ilcerDaca .MoveFirat 

'size and place the item shapes 

'and sez section booknarks 

section = 0 'nvuriier of Iccotsr locations 
For i = 1 To MAXITZM 
Load rlcemJi) 

ritenitil .Top = T ♦ (i - 11 * rowOffset 
If tti - II Mod MAXDISPIAY) = 0 Then 
'begin a new locator location 

section = section ♦ I 

locStart (section) = i 
End If 

It Nat leaf(i} Then 

rltemli) .Width » ritemt i ). Width ♦ reducedZXTRA 
End :f 

riteir.li) .ZOrder 
rlterr( i) .Visible « True 
Next i 

MAXLOC » section 

locStart (section + 1) ■ MAXITEM 1 

'seL length of minselector 

•use rltem(O) as Riini selector 
rltemfOl .Lef t = locL - GAP 
rIt:eEn(01 .Width = locW * 2 • GAP 

'initialize selector and locator 
iteaaSelected » 1 
locSelected » 1 

rItemCO) .BackCalor = highlightCOLOR 

'set the captions in the itemBoxes 
RedoDisplay 
End Sub 

Sub RedoDisplay t) 

'set the captions in the itemBoxes to correspond to items in locator 
•reposition locator, selector and set item info in info box 

Dim last As Integer 'nurJber of last item in display 
Dim i As Integer "counter 

Dim index As Inceser 'index of item in list 

index = locStart ( locSelected) 
For i = 1 To KAXDISPLAY 

If index > MAXirEM Then 

"hide empty itemSox 

itemScxtil .Caption " 

itemSox ( i) .Visible = False 
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index ■ locStarc UocSelected) * itemSelected - 1 
:* leaf (index) Then 

'get full title from data 
5 Set F a filterDaca 

F.FindFirsc "SelectTitle - "■ & list(ir.dex) k ' 

nisg = Ffr'jilTitle-j 

Else 

nisg = "Titles begirjiing wit.*: k lisriindexl t •'■ 
End If 

Setrr.;o r.sg, (icemBox ( icemSelected) . SackColo") 
End If 
End Sue 

Sub trrj:31ink_Tiiner tl 

15 BlinScControl .Visible » Not BlinkControl . Vis- ble 

End Sub 

START form code 

"This startup form allows the developer t= choose display mode 
20 '. for PC, TV. or mini' PC for tsAking screen prints) 

then starts the actual program by calling Main 
Option Explicit 

Sub Form_Load (.1 

retumcode = STAHTUP 
2s End Sub 

Sub miniButton_Clic)c () 
displayMode = 'mini* 
Unload Ke 
Main 
50 End Sub 

Sub PCb-jtton_Clic)c () ' 

displayMode = -pc" 

Unload Me 
55 Main 
End Sub 

Sub TVbucton_Click () 

displayMode » 'TV' 

Unload He 

Main 
End Sub 

====== TV form code ====== 

■This ton:, pretends to show a TV prograir, cr record it. if ic is not cur-entlv cn 

<5 

Option Explicit 
Const GkP = 700 

Sui Form_Activate {( 
^ Dim msg As String 
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Case Asc I 'Q* 1 

End 
Case Els« 

returnCoce ~ BACK 

He .Hide 
End Select 
Hind Sub 

Sub Fcrm.Load ( ) 

texcArea. Caption = 
textArea.FoncSiie = largeFOKT 

SireAforTTi Me, 0, ScrHeighc, 0, Scrlrfidch ^ , 

S.ZCAControX teJC'-Area, GAP. ScrKeighC - 2 • GAP. GAP. ScrWidth - 2 o«? 
End Sub 



TV_GUIDE forto code — 
'General remarks: ' _ i ' ' 

■ The Main procedure starts the ball rolling by showing the P"''^*' ^"^^ , 

•all the forms, and then showing the rolodex menu. Contro is t ran f erred ro^ fon. 
■.o form through the use o£ the returr:Code variable (see list of recur,, cades in 
■global decimations). The frmDex. for example, sets the returnCode to S.HOWIEW. and 
•hides itself. This causes fnnFrain« c= become active. fnaFrame xOoKs at the 

'I^rshows the current doinain's view farm. Cosminication between forms is done 

•^"variety of variables, since a forrn's procedures are not accessible from outside. 



Option Explicit 

Global Declarations 



'database constants 

Global Ccnst CARDFILE = .c:\pctv\db\cards2.txt' 
Global Const MVDB = ■ c : \pccv\db\plots -tndb* 
Glsbol Const SPDB = •c:\pctv\db\shopping.ir.db'' 
Global Csnst TVDB = 'c:\pctv\db\bio.indb' 
Global Ccnst TVTitles - .c:\pctv\db\titles.mdb- 
Const CATDB » -c:\pctv\db\cats.indb' 
Din typeTable As table 'TV type IDs 
Dir. catTable As table 'TV category 1D% 
Dir. statTable As table 'station IDs 
Glcbal fakeToday 'keep the day constar.t 
Global fakeTime 'keep the time constant 

Glcbal displayKode As String 'display set for "PC" or "TV- (affects size c£ fonts 
and graphics) 

Global newUser As Integer 'boolean 'when true, give extra helps 
Global ScrWidth, ScrHeight 

Global DispTop. DispHeight. DispLeft, DispWidth "display area available to .orms 
inside the frame 

'Colors 

Global Const highlightCCLOR = tKeceOFF 'redish 
Global Const backsroundCOLOR = iHSOFFFr -yeilov 



59 



EP 0 735 749 A2 



Global Const FILTER « 5 
Global Const COMING ■ 6 
Global Consc SHOWVIEW = 9 
Global Consc ALPHA = 10 
Global Const PICK » 11 
Global Consi STARTUP = 12 



Define TVpe Card 
for rolodex 



Global Consi MAX2TEM = 9 'max n-xrier of butzons on a card 

aepresencs one index card as viewed on screen 
IV? e Card 

self As Integer 'ite.T. nirnber of self on parer.: 
level As Integer 'n-u-Tiber of cards away from root 
naroe As string 'text to appear on button/card" 
ir.iotext As Scring -text for info bar 

actionC=de As Integer 'code for action to take when chosen 

actionDflCa As String 'extra info needed for action 

parent As Integer 'number of parent card 

Nlteas At Integer -number c£ buttons visible on card 

se"c^'If ! -array =£ card pointers (one for each button on card) 

End -the nuinber of the selected button 

■Array of up to MAXCARDS index cards 
Global Cinst MAXCARDS = laCO 
Global Cards tMAXCARDS) As Card 



Remote Buttons 



'assigned values in sub SetKeys 
Global B_BACK 
Global B_HELP 
Global B_ PREVIEW 
Global B_UP 
Global B_DOWK 
Global B_LEFT 
Global B_RrGHT 
Global B_SELECT 
Global B_PAGEUP 
Global B_PAGEDOWN 
Global B_l 
Global hZl 
Global B_3 
Global B_4 
Global E_S 
Global E_6 
Global E_7 
Global B_8 
Global B_9 
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K£V_A thru K£Y_3 are che same as their ASCII ec^ii valents : 'A' thru 'Z* 
KEY_0 thrr KEY_9 are the soine as their ASCII ec;uivaXer.ts : '0' thru 'S' 



Global 
Global 
Global 
Global 
Gl3bal 
Glcbal 
Glibal 
Gl=bal 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Glcbal 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Const 
Cor.st 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 



KEY_SUMPA30 ' 

KnjiTJKPJiDl > 

KEy_NUMPA23 ' 

KEY_NUMPAD4 ^ 

KEY_NUMPAC5 = 

KEY_i:UMPACS > 

KEY_NUMPAE7 « 

KEY_KUMPAD8 - 

KEY_NUKPAD9 « 
KEY_MULTI?LY 



&H60 
&H61 
&H62 
feH63 
&H64 
&HG5 
«H66 
tH67 
6H68 
tH69 
= tH6A 



KEY_ADD = tH6B 
KEY_SEPAIIATGR = 4H6C 
KEY_SUBTRACT = tH6D 
KEY .DECIMAL = tH6E 
KEY_DrVIDE = &K6F 



KEY_F1 . 
KEY_F2 * 
KEY_F3 - 

?Ey_F4 : 

iC£Y_F5 : 
KEY_F6 ' 
KEY_F7 « 
KEY_F8 1 
KEY_F9 . 
KEV_F10 
KEY_F11 
KEY_F12 
KEy_F13 
K£Y_F14 
KEY_F15 
KEY_F16 



fcH70 
iH71 
tH72 

5. H73 
6H7 4 
tH75 

6. H76 
fi.H77 
&S78 

» tH79 
= S.H7A 

■ tH7B 
» kHlC 
= iH7D 
» fcH7E 

■ itH7F 



Global Const KEY_MUMLOCK - feH90 



Function CategoryScriny (typeCod* As Integer. catCode As Integer) As String 
•creates user-reababl* string for a TJ program's category 
40 Dini nisg As String 

rsg = "Category: " 
' look up type code 
ti-peTable . Index = 'ID" 
CypeTable.Seek. • = •'. typeCode 
If typeTable.NoHatch Then 
msg " msg & typeCode 

Else 

.T.sg = msg & typeTable ( "Name" I 
End If 

SO msg » msg fc " . " 'all or. one line, replaced: Chr(ljl S. "Subcategory: * 



SS 
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20 



25 



DayString = 'Tuesday' 

Else 

Days t ring = *Tue" 
5 End If 

Case 4 

If length = 'long' Then 

DAyString * -Wednesday" 

Else 

DayString = 'Wed* 
JO End If 

Case 5 

If length = ■long" Then 

DayString » 'Thursday' 

Else 

]5 DayString = 'Thur* 

End If 
Case 6 

If lergch = 'Icng' Then 
DayString ■ "Friday 

Else 

DayString = 'Fri' 
End :£ 
Case 1 

If length = 'long' Then 
SayString ■ 'Saturday* 

Else 

DayString = 'Sat" 
End If 
End Select 
End Function 

Funttion f ixAmpersand (text As String) 

■put in a "tf for every 't- so antpersand will print instead cf fcrrjic an underline 
Dim L As Integer 
Dim oldText As String 
Dim newText As String 

newText = •• 
OldText = text 
'A'hile IrJtrlcidText, 'fc*) 
i = InStr {OldText, •&-) 
newText ■ Left {oldText , i - 1) b 'if 
oldText • Right (oldText, Len(cldText) - i) 

Wend 

fixAmpersand = neuText & oldText 
End Function 

Sub InvolteHelp I) 

^ add parameter fcr current location or give each Eorr. a local InvokeHelp 
wouid be specialized for each view, probably not each button 

r.,J^"."^" "^-"^ ^^^.^T^.l help, or press any button on the 

remote for help with that button. ' 
Select Case returnCode 
Case 3_KELP 
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viewFilter = 'Year >= 1??3* 
currViewtMOVIEl = 'Recent Movies' 
currFilcer (MOVIE) . " : All Categories" 
SetStatus -Mavies-. SfreyCOLOR 
Load listFrm(KOVIE) 
' Shopping forms 
currDoriiin « SHOP 
filters (SKOF) • •* 

Setstacus -Shopping, compact disks', greyCOLOR 
Load listFrmlEHOP) 
' TV Eorms 

currFilter (TV) = * Basketball " 

currDomain = TV 

filterslTV) = -Cateaory - 39" 

userStrir.g = 'Nova" 

'Load frmWeek 

'Load listFrr.{TV) 

'Load frtnComing 

•Load frmWkday 

'Load frmSelect 

'show main nenu 

S«tStacus -Use arrows and select or use keypad.". greyCOLOR 
frmDex, Show 
End Sub 

Fiinction Overlap {beginTS. endTS) As String 

'create cjuery string to look for TV programs in the range between 
' and including beginTS and «ndTS 

overlap = - {StartTS <- " i Str(endTS) & " Ar.d FinishTS >= & Str (beginTS) 
End Function 

Sub Setlnfo (text As String, Color) 
'update the info box text and color 
Dija s As SSPanel 

Set s - frrrj^rameissplnfo 'works as long as form is loaded 
s.BackCclor - Color 
s. Caption = text 
End Sub 

Sub SetKeys [mode As String! 

'Set the keymappings for keyboard or "reroote" 
B_l = KEY_NtJMPAD7 
B_2 = KEY.tJUMFADB 
E_3 « KEY_WUMFAD9 
E_4 ■ KEY_NUMPAD4 
B_5 = KEY_HUHPAD5 
a_fi = KEY_NUMPAD6 
B.l = KEy_NUMPADl 
B_e = KEY_^J'J1^FAD2 
5_9 = KEY_rrj>lFAD3 
If mode = -TV* Then 

•use keypad for all' buttons (except 1-9) 
a_BACK = KEY_SU3TRACT 
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15 



scatTable.Seek s 

!£ stacTable.NcMacch Then 

MsgBox "illegal station ID * i s 

Stop 
End If 

ScationString = statTable{ -Name" ) 
End function 

Sub Teilt/ser (message As String) 

■displays message =r. screen until key is pressed 

■probably would not be used 

userMsg ■ message 

Wait frr-Msg 
End Sub 

Functicr. TiiaeLabel (t) As String 
'returns null string for times on half hour, 
returr.s hour I.. 12 otherwise 
Dim s As String 
s » Format(t, *hh:nfn AH/PM*) 
If Kidfs, 4, 2) - -30- Then 
TimeLabel - ■ - 

Else 

s = Formatfs. 'h AM/PM') 
•strip off AM/PM 
TisieLabel = L.eft(s, Lenfs) - 3) 
End If 
End Function 

Function TimeString (aDate) As String 

'format a date as 12-hour time without AM/?H or leading lero 
Di,-n theTiflie As String 
theTime = Format (aDate, "hh:.-:5ii AH/PM- i 
theTime = Lef t ( theTime , 5) 'take :ust -hhinm- part 
If Left (theTime. 1) = -O- Then 
cheTijne e Right (theTime, 4} 
End If 

TimeString ■ theTime 
End Function 

Sub Wait (F As Form) 

'Allows sne form to wait for another to hide icseif 
F.Sbow 

While (F. Visible) 
Do Events 

Wend 
End Sub 

■== = === >r£EK form code ====== 

Opcion Explicit 

•stacked channel- view to be used with TV search and 

possibly other minimal searches {would need rr.Ldi f ication in ApplyFilter) 

Dim allDataO) As snapshot •all data wi-hin rime period 
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'move CO later time, same day 
F.FindNext -StarcTS > ' fc Str(TS) 
success = Not F.NoMatch 
If success Then 

'check if info arrows needed 

TS = F( •StartTE") 

F.MoveNext 

If Not F.EOF Then 

If FCStartTS'l " TS Then 
infcArrcws *down" 

Else 

infDArrcws "none' 
End If 

Else 

infoArrows *none* 
End If 

F . MovePrevious 
End If 
Case *Le£f 

move CO earlier time, same day 
F.FindPrevious 'ScartTS <: " Scr(TS) 
success » Not F.NoMatch 
If success Then 

TS at FCStartTSM 
'go to top of column 
F.FindFirsc "StartTS = " t SCr(TS( 
TS ■ F( 'StartTS') 
'checlt if info arrows needed 
F.MoveNext 
If Not F.ECF Then 

If F( -StartTS') » TS Then 
infoArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

infoArrows "none* 
End If 

F.MovePrevio-us 
End If 

Case "Down" , _ 

•:uove CO later day, trying to keep close to previous time slct 
If NProgs < 1 Then Exit Sub 'do nothing if all snapshots empty 
aDay - aDay 4. i: TS = TS * 48 
While Not success And aDay <= NDays 
Sec F = f ilterData (aDay> 
F.Findfirst 'StartTS > ' t Str(TS) 
If F.NoMatch Then 

•no prog to right, look left for any programs 
If Not F.EOr Then F.MoveLast 
If Not F.ECF Then 
success » True 
TS " FCStartTS") 
End If 
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If No= .-.EOF Then 
success = True 
TS " FrStarcTS-] 

E. nd If 

Else 

•save program co right, counc time slots away, look lefl 
marker ■ F. Bookmark 
best » FfStarcTS") - TS 

F. FindLasc 'StarrTS <= - k S:r(TS) 
If F.NcKatcb Then 

'ns prcg to left, take progra.-T> to richt 
F.Booknark - tnarker 
TS = TS - best 

Else 

'check disca,nces 

If TS - FCStartTS*) > best Then 
Tight prog closest 
F.Bookriark = marker 
TS = TS - best 

Else 

'left prog closest 
TS - F( -StartTS* I 
End :f 
End If 

'either way, we found e program 
success ■ True 
rnd If 

aDay ■ aDay - 1 : TS = TS - 48 

Wend 

aDay = aDay ♦ 1: TS = TS + 48 
If success Then 

'make sure to be at the top of a column 

F.FindFirsc 'StartTS = * & Str(TS) 

If F.NoMatch Then Stop 'how did we get a TS with no program in it? 

TS = F( -StartTS-) 

'check if info arrows needed 

F . MoveNext 

If Not F.EOF Then 

If FfStarcTS') => TS Then 

infoArrows 'down- 
Else 

ir.foArrcws 'none' 
End If 

c:ise 

infoArrows "none" 
rnd If 

r.MovePrevious 
Er.d If 
Case -Nexf 

'find next program, sarae time and day 

".MoveMexc 

If Not F.EOF Then 

"success r.eans still in same tL-ne slot 

success = F( "StartTS") = TS 



SS 
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^se/info'borwich curtenr progr^ ir£o and highlight position 
Dim F As snapshot 
Dim r.sg As String 

Set =■ = JilterDato [currDayl .l. ™ hv/swi 

III Staticr^tring(FCSt*tion-). ^ " ' rormat <Ft -Start M . h:.^ AM/P.. 1 
:nsg = r.sg " to ' t Fcrnat i r r Fir.ish" : . -h:nin AM/PM. ") 

::isg ^ nisg t Fomvat ( F t "Title" 1 1 , .,^,,^0' * t 

= msg ChrU31 i -(episode info here,- • Forr^t ( . ( ' Episoae .1 
•note: current database does not contain episode information 
Setlnfo ir.5g. Color (FlcolorFieldt Mod 3) 

shpFrog 01 -Visible ■ False 
selector .Visible » False 

Position shpProgtO). F ( "StartTS" ) , FCF.nishTS ) 
C?lace 0. selector. shpProglO) 
shpFrog'.O) .Visibl* - True 
selector. Visible = Tree 
End Sub 

Sun DoPreview l) , , 

•Ccnstruct an appropriate preview nessage and display 
Dir. msg As String 

"''nsg = xag i categoivString ( t f ilterData (currDay) ( "Type' ) ) , 
(*•' rerData { currDay) ( "Category- 1 ) } ^ .,,1 

"sg ."sg . Ch^.l3) ^ DayString (Weekday, fiUerCata IcurrDay, ( 'Start' ) long ) 
r.sg = rr^n & - i Forrnat { filterData (currDayM 'Start' ) , * f : , ^; * 
Tsg = msg . ChrdS) S. - to ' t Format . fiiterData < currDayl C mish ), h.nu. 

AM/PM' ) 

llblDay(l) .Width) , 45 

popup. Visiblfl => Tr-je 

inPreview = True 
End Sub 

Sub Deselect ( ) ■ . 

set data for selection and go to TV 

userSta::ion = filcerData (currDayl ( 'Station" ) 

userStart = zilterOata (currOayK "Star;- 1 

returnCode = TOTV 

Me. Hide 
E^d Hub 

Sub DravProg '.duplicates As Integer, index As Integer) ^ 
■draw a prugra^T, shape in display, nvarking 1= if there are duplicates a- -he 
icsntical ziT^.e slot 



75 



page -75- 



EP 0 735 749 A2 



AppiyFil-sr 
?:akeZi splay 
samefilter = True 
End If 
Zr.t Sub 

B'Sd Farr._KeyDown (KeyCode As Integer, Shifc As Integer) 
Dim index As Integer 
Din n As Integer 
Seler; Case :-:eyCode 
Case AscCQ-) 

Sr.d 
Case 3_3ACX 

rcLurnCode = HACK 

Ke.Hide 
Case B_HZLP 

samefilter = Tr-je 

Invo:<eHelp 
Case B_?R£VIEVJ 

If inPreview Then 

inPreview ■ False 
popup .Visible » False 

Else 

inPreview » True 

End If 
Case B_P.rCHT 

ChangeSel C Right") 
Case B_LEFT 

ChangeSel ("Left*) 
Case B_U? 

ChangeSel CUp*) 
Case B_DOWN 

ChangeSel ( " Down " ) 
Case Bj.S ELECT 

If Not filterData(currDay) .EO? Then DoSelecc 
Case B_PAGZDO(VN 

ChangeSel ("Next*l 
Case a_PAGrjP 

ChangeSel (-prior') 
Case B_FILTER 

'go back to frroSelect to choose a new title 

retumCode = PICK 

Me .Hide 
Case B_0 

ret'^mCode = SHORTCUT 

Me.Kide 
End Select 
If inPreview Then 

Ds Preview 

Eiss 

popup. Visible » False 
End If 
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25 



4S 



*pu- A>:.'?M label across top 

iLzeACanzral IblDaylO). inE=Keignt. :i-eHei?h:. dayWidch, NSlocs 
IblDaytO) .Caption "AX iJOON PM' 

lbiDay[0) .visible = True 
'pui time labels across top 

Si = eACo-ircl IblTirtie ( 0 ; . ( IblDayt 31 -Height } - intoHeight, cimeHeighc, 0, 2 
Fcr i = 1 To NSlots \ 2 
Load IblTiT.etif 

IblTinie ( i ) .Caption = Tir.eLabel (DateAdd i 'iT , (i - 1), fakeTCDAY) 1 

IblTime ! i t . Left = 2 • i * 2 

lblTime(i ('.Visible = True 
Next i 
NProgs = 0 
sameFilter = False 
InputData 
Forro_Activace 
end Sub 

Sub infoArrcws [direct As String) 

■show cr hiie arrows in info box indicacirig presence of more prograr.s at identical 
time 

Select Case direct 
Case "up" 

downArro**; .Visible ■ False 

upArrow. Visible » True 
Case *d5-*TT 

upArrow. Visible - False 

downArrow, Visible » True 
Case "both" 

upArrsw, Visible = True 

downArrow. visible » True 
Case "none" 

upArrow. Visible = False 

downArrow. Visible » False 
End Select 
&nd Sub 

Sub Inp'JtData ( ) 
'part of fonr,_load 

■opens the database and creates allData snapshots 

Din D3 As database 

Dir RefSnap As snapshot 

Di.T. i As Integer 

Set D3 - CperOatabase IP/Tia) 

'get reference date and number of stations 
Set SefSnap « D5 .CreateSnapshoc (' Reference " 
Hef Snap . FindFirst "Ka.-ne « 'Date'* 
refDate = DateValue (RefSnap ( "Data* ! ) 
Hef Snap . Fir.dFirst -Name = ' WStatisns ' " 

Set alinata(O) - ^a.CreateSnapshct : -prscrar-.s" I 
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v.'hile d <= MDeys 

If £ilcer-Da:a(dt -EOF Then 
d - d * 1 

^"^*NProgs = I 'V^sz to Mke sure it is -T.ore than 0 

currl^ay = d 

d » NEays + 1 
ET.d If 

VJer.c 

shpPrsgtO) , ZOrder 
selector .ZOrder 

If Not f ilterDaratcurrDay) -ECF Then 

TScurrent = MUerData ( currDay ) 1 *£tarcT3- ) 
DisplayProg 
ChangeSei "none' 
End If 
End Sub 

Su= Position (shape As Control, start, firashl 
'pcsition a program shape 

Dim leftTS 

Dim rightTS 

Const suvallGA? = .1 

•convert to time slot scale 

leftTS = start - 46 - (currDay - 1) 

rightCS - finish - 48 • (currDay - 1) 

•set left and width 

shape. Left = dayWidth * leftTS 

• •_i.^TC 1«»*rTS * 1 - smallGAP 

sr.ape . rfidth = rightTS - le^^i^ ^ 

■cut off at beyinning of day 

If shape. Left < dayWidth Then 

shape. Width = shape. Width - (dayWidth - shape. Left) 

shape. Left = dayWidth 
End If 

'set top and height 
shape. Height « 2 - 2 ' snnllGAP 
shape. top - IblDaytcurrDay) .top * smal-GAP 
End Suh 

Sub Setlnfo (msc As String, Color) 

•cverride the global Setln£= to write to ^ry own m.o panel 

infoPanel.BacltCclor = Cslor 

mf oPanel .Capr ion • msg 
End Sub 

■ = = = -.sKDAV form code ==--«- 
Cption Explicit 

■schedule of 5 weekdays at a particular ti::ve 
' .:ses time-slot g'jided navigation 

2i- allSatatS) As snapshot 'all data within tir.e period 
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■plic« prograru shapes 
r.asPross = 0 

c = 0 •iniz count of shpProgs 

Or. Error GoTo ErrorKandler 'if we run out of shpProgs zo allocace 
For d 5 1 To KDays 

currDey - d 

Sec F = f ilcerData (dl 

•create a shape concrol for each TV program in the data 
If Not F.EDF Then 

F.MoveFirst 

Do While Kcc F.EOF 

Lead shpProgtc * 1) 

c = c * 1 • increment only after allocate succeeds 
shpProgtcJ -HackColor = Coicr t F (colorField) Mod 91 
Pcsitior. shpProg(c), FfStarf), FCFinish'), FCStation-] 
shpProstcl .ZCrder 
shpProg (c) -Visible = True 
F .MoveKext 

Loop 



F . HoveFirst 

in ic 



If^hlsProgs = 0 Then hasProgs = d • r«n«mber the first day with programs 



End If 
Next d 
McveOn: 

Cr. Error GoTo G 'quit trapping errors mcerna-ly 
•make day lines visible on top 
For d = 1 To KDays - 1 

dayLineld) . ZOrder 

dayLine(d) -Visible = True 
Nex.t d 

■ initialize scuff 
SProgs = e 
currDay * hasProgs 
shpProg { C ) . ZOrder 
selec-or. ZOrder 
If currDay > C Then 

•set tiir.e slot begin and end nuirijers for current day „ ,^ 

TSBegin = DateDif f ( -n' , refDate. startTine) X 30 . 48 ' (currDay - 1) 

TSEnd » TSBegin * slocsPerDay - 1 

T5current = TSBegin 

S&z F = filierDatalcurrDay) 

Do While TScurrenc TSEnd 

F.Fir.dFirst Overlap (TScurrenc , TScurrenc) 
If Net F.NoKacch Then 
DisplayProg 
Exit Do 
End If 

XScurrent ■ TScurrent + 1 

loop 

Else 

TSBegin = DaceDi f f I * r. ' . refDate, startTijie) \ 30 
TSEr.d = TSaegin * slotsPerDay - 1 
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TScurreni = TSEegin 
currDay = 1 
End If 

shpSloc (TScurrer.t - TSBegin + 1 ♦ (currDay - 1) • slocsPerDay) . FillStyie = 

O'SOiiQ 

IblTime (TScurrenc - TSBegin • 1 * tc\:rrDay - 1) • sloisPerDayl .Bac)tScyl« = 
1 'opaque 

Elxit Sub . 

SrrsrHandler: 

If Err = 3 42 Then 

'ran out of room tc alltacate projram shapes, truic drawing 
Resume MoveOn 

Else 

Dim msg 

mag = Error & Chr(13) t 'Resure or Cancel?* 
msg » Inpui.Box(nisg, 'Errsr Correc-ion", 'Resime") 
If msg = • • Then Scop 
Resujiie MoveOn 
End If 
End Sub 

Sub Position {shape As Control, stare, finish, station) 
'position a program shape for display 

Din relativeL, relativeW. dayStart 

Dim edge 

'convert a day/time to position in NSlot scale 

dayStart = scartTir.e currDay - I 

relativeL = (start - dayStart) • 48 

relativeW = (finish - dayStart) ' 48 - relativeL 

'clip shapes 3ff at day boundaries 

If relativeL. < 0 Then 

relativeW = relativeW * relativeL 

relativeL = 0 
End If 

If relativeW + relativeL > slotsPerDay Then relativeW = slotsPerDay - relativeL 

'set left and width of shape 

edge = (currDay - 1) • slotsPerDay 

shape. Left » relativeL - edge *■ sideGap 

shape. Width = relativeW - 2 ' sideGap 

'enforce minimum width so program is visible 

If shape. Width < MiNPrcgWidth Then shape. Width = MINProgWidth 
"set top according to station 

'note: this scheme only wor)c5 because stations are nared l..n 
rowCffset = (fSOO - 2 • IblKEIGHT - shpProg (0) . Height J / NStation) 
shape. To? - shpSlot ( D) . Top - topGAP • (station - 1) • rowOEfset 

End Sub 



Thus. It will now be understood that there has been disclosed a method and apparatus of finding and selecting a 
program to vtew from a large schedule of TV programs. While the invention has been particularly illustrated and de^ 
scribed with reference to preferred embodiments thereof, it will be understood by those skilled in the art that various 
changes in form, details, and applications may be made therein. For example, color coding of the individual items of 
the reduced representations and of the various entries in the various grid displays could be used to assist the viewer 
in making rapid program selections. Another example is that it is easily within the capabilities of this art to modify a TV 
set by inlagraling the set top box according to the present invention into it. it is accordingly intended thai the appended 
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claims shall cover all such changes in fornn, details and applications which do not depart from the true spirit and scope 
of the invention, 



Claims 

1. Apparatus for selecting an (lem from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 

filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specilier by the pointing means for filtering the group to produce the subgroup specilied by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to at least a portion of the subgroup in the 
display means; and 

group tlem selection means for selecting a group item by selecting the representation thereof in the display 
in response lo the pointing means, 

2. The apparatus set forth in claim 1 wherein: 

the pointing means need only be movable from one representation to an adjacent representation. 

3. The apparatus set forth in claim 1 wherein: 

the means for displaying the representations comprises: 

first means for displaying the representations in a single dimension; and 

second means lor displaying the representations in two dimensions. 

4. The apparatus set forth in claim 1 further comprising: 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced rep- 
resentation of the portion of the group being presently displayed by the display means. 

5. The apparatus set forth in claim 4 wherein said reduced representation is two dimensional, 

6. The apparatus set forth in claim 5, wherein said interactive movable pointing means includes a remote control 
having; 

a first pair of buttons to control changes in location in the display in a first direction; and 
a second pair of buttons to control changes in location in the display in a second direction, 

7. The apparatus set forth in claim 4 wherein said reduced representation is a two dimensional representation of a 
three dimensional representation, the third dimension being location within a logical stack of items having at least 
one common property. 

8. The apparatus set forth in claim 7 wherein each item of a logical stack have viewing timeslot as one common 
properly. 

9. A method comprising the steps of: 

receiving program schedule data by a set top box via a same information conductor that conducts program 
information to the set top box; 

filtering said program schedule data in RAM within said set top box: 

said set top box showing a first interactive display on a TV connected thereto presenting a plurality of choices 
for filtering said program schedule data to a viewer; 

in response to an interactive selection by said viewer, filtering said program schedule data into a first subgroup 
of program schedule data; 

also in response to an interactive selection by said viewer, said set top box showing a second interactive 

display on said TV having a second plurality of choices for filtering said program schedule data; 

in response loa second interactive selection by said viewer, filtering said first subgroup intoa second subgroup; 
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and 

also in response to a second interactive selection by said viewer, said set top box showing a third interactive 
display on said TV having a reprasentatbn of each program item oJ said second subgroup. 

5 10. The nnethod of claim 9, wherein said receiving program schedule data step lurther comprises the steps of 

receiving a first portion of said program schedule data via said set top box; and 
receiving a second portion of said program schedule data at a later non-contiguous time. 

10 11. The method of claim 9, further comprising the step of; 

in response to an interactive highlighting of a representation of a program Item of said second subgroup, 
displaying a title thereof. 

12. The method of claim 11, further comprising the step of: 

15 in response to an actuation of a select button of a remote control, displaying a preview of said highlighted 

program. 

13. The method of claim 12, further comprising the step o(: 

in response to a second actuation of said select button of said remote control, switching said set top box to 
20 display a TV program corresponding to said highlighted representation. 

14. The method of claim 12, further comprising the step o(: 

in response to a second actuation of said select button of said remote control, storing a command to switch 
said set top box to display a TV program corresponding to said highlighted representation in when that TV program 
25 begins. 



15. A method comprising the steps of: 



receiving program schedule data for at least 300 individual channels for a time period of at least a week; 
storing said program schedule data in local merrrory for rapid sorting and retrieval in a database format; 
filtering the program schedule data in response to interactive user inputs into a subgroup of the program 
schedule data; 

displaying the subgroup of the program schedule data for the user's review; and 

interactively selecting a program from the subgroup of program schedule data for viewing on a TV screen. 

IS. A method lor choosing a desired program from a large schedule of programs whose data is stored in a local 
menrary, comprising the steps of: 

displaying a vertically cascaded group of cards with each card representing a program of a particular time and 
channel; 

displaying a selection window located around a subgroup of said group of cards: 

displaying a two-dimensional grid adjacent to said vertically cascaded group of cards in which said subgroup 
of the programs represented by said vertically cascaded group of cards are shown in greater detail; 
displaying a first active area within said selection window highlighting one of said subgroup of programs; 
displaying a second active area within said two-dimensional grid^ said second active area being located around 
and highlighting greater details of the program highlighted in said first active area; 

moving said first active area in a vertical direction in response to vertical direction arrows to a viewer's input 
of a remote control; and 

selecting a desired program by moving said active area to said desired program and actuating a select button 
until said set top box makes said selection, 

17. The method according to claim 16, further comprising the steps of 

after said active area is moved one location outside of said selection window by inputs from said viewer, 
moving said selection window to a contiguous subgroup to w^ich said active area has moved. 

18. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified tocation, the 
apparatus comprising: 
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^^rcrd-M^inC'^ur:^^^^ C me .u.,,o., and a. iodlca.^n in me reduced rapre- 

TenlaSon d mo p'orf^n o. .ha group being ^''^f^^^^'^^J;:^:,'^^^^^ ol a .hrae din,en- 

rrrs::=r ^^^^^^^^^^ - - 

common property, 

, The appa,a,us M in Cai. B or1 9, whe-e^ said in.arac^e n,ovable pointing means includes a remote control 

having: 

a Ih.rd pair ot buttons lo control changes in location within the logical stack. 



95 



page -95- 



EP 0 735 749 A2 




FROM 
CABLE - 
NETWORK 

14^ 



16 



TO TV 



FIG. 2 



ROM 



38 ^40 



RAM 



1_I 



-42 



■44 



CONTROLilR 
INTERFACE 



r 



12 





32 


J X 

CENTRAL 
PROCESSING 
UNIT 


46 


r48 


CABLE 






STB 


INTERFACE 






DISPLAY 











96 



page -96- 



EP 0 735 749 A2 



JL 



64 



JL 



66 



L 



68 



n nnrn 



60 



5 2 f62 



3D 



55 



5^ 



se 



T 



1 1 1 


( 2 1 


1 3 1 




1 4 


5 






1 7 1 


1 8 1 


1 9 1 


111. 


1 0 1 





50 



FIG. 4 




97 



page -97- 



EP 0 73S 749 A2 



FIG. 5 jrsoo 



ON TV RIGHT NOW 




BFGIN 1 TV 




-f ON NOW 1 


COMING UP 


SEARCH 




508 Siz 


WEEKDAYS 


WEEKEND 


506 510 




TV 



502 
504 



605 



604 



602 i 



FIG, 6 



y600 
J 607 



NOTICIERO UNIVISION ON KCSO. 6:30 TO 7:00 



IV 6:30PM : ALL CATEGORIES 



InOTICIERO UNIVISION I \ 




« 


VICTORY AT SEA II 




VICTORY AT SEA |_ j 


»l 


CODE 3 1 t 




« 


THE NORSEMAN 1 1 




60 MINUTES 1 1 



6 



98 



page -98- 



EP 0 735 749 A2 



70Z 

HELP 



BEGIN 

T" 

708 



FIG. 7 



? MENU 

704 
\ 

CATEGORIES 



FAVORms 

— S~ 

710 



/ 



700 



70S 
VIEW 



VIEWER 
712 



USE ARROWS OR SELECT USING KEYPAD 



FIG. 8 J BOO 

SPORTING EVENTS AND SPORTS SHOWS 



TV CATEGORIES 



FAVORfTE 



BOZ 805 



INFO 



MOVIES 



803 



ENTERTAINMENfT 



SPORTS 



NEWS 



CHILDREN'S 



SERIES 



MORE... 



USE ARROWS OR SELECT USING KEfPAD 808 



99 



page -99- 



EP 0 735 749 A2 



FIG. 9 j^soo 




FIG. 10 



1004 



1005 




^1000 
J /1010 



■mis WEEK IN THE NBA ON CNN. 6:3Q TO 7:00 



~lTHI5 WEEK IN THE NBA 



AMAZING GAMES 



SENIOR PGA GOLF 



LPBT BOWUNG 



NBA BASKETBALL PLAYOFS 



AMERICAN GLADIATORS 



TV 6:30PM : AU SPORTS AND SPORTS SHOWS 




1015 



100 



page -100- 



EP 0 735 749 A2 



FIG. 11 



1102 



/ 



1100 



THIS WEEK IN THE NBA ON CNN. 6:30 TO 7:00 



THIS WEEK IN THE NBA 
CNN 

CATEGORY: SPORTS. BASKETBALL 



TV 6:30PW : ALL SPORTS AND SPORTS SHOWS 



FIG. 12 



1Z00 



WHATS ON TV RIGHT NOW 



BEGIN 1Z0Z 
4 



ON NOW 



WEEKDAYS 

— T" 

1208 



TV 1204 



COMING UP 



WEEKEND 
1210 



1206 



SEARCH 



TV 



toi 



page -101- 



EP 0 735 749 A2 



FIG. 13 



/ 



1S0Q 



KM: MAJOR LEAGUE BASEBAII 7:00 PM TO 10:00 PM 



1302 




IV COMING UP: ALL SPORTS AND SPORTS SHOWS 



FIG, 14 



1400 




USE ARROWS AND SELECT OR USE KEYPAD 



102 



page -102- 



EP 0 735 749 A2 



FIG. 15 



/ 



1500 



CNN - "mis WEEK IN THE NBA 6:30 PM TO 7:00 PM 



PM SUNDAY AM 

7 8 9 10 11 12 1 2 3 4 5 6 



1502 



I I I I 



TV COMING UP: BASKETBALL 



FIG. 16 jrisoo 



TfTlES BEGINNING WITH ^SYMBOL OR NUMBER' 


□ 


1 SYMBOL OR NUMBER » 




A B. C. D. E, F. » 




G. H. I. J. K, U » 


M. N. 0. P. 0, R, » 


S. T. U. V. W. X. » 
Y. Z » 


TV. SEARCH 



103 



page -103- 



EP 0 735 749 A2 



FIG. 17 



1700 





TITLES BEGINNING WTH % N 6" 


p. Q. R' 








bTMBOL OR NUMBER 


» 








A. B. C. D. E. F. 


» 








ti. 1. J. K. L 


» 








J M. N, 0. P. 0. R 


» 








' b. r, U. V. X 


» 








r. I 


» 


1 TV. SEARCH 



u 



FIG. 18 ^mo 

Tm£S BEGINNING WTH 'w 



» 



» 



» 



» 



» 



» 



TV TTRES STARTING WIIH M. N. 0. PlTp- 



FIG. 19 



-mo 



TITl£S BEGINNING WfTH 'w 


□ 


M 


» 






A± 


» 






0 


» 






p 


» 






0 


» 


L 




R 


» 


IV IIIU^ blAKIINC WITH M. N. 0 P n 


R 



104 



page -104- 



EP 0 735 749 A2 



FIG. 20 yZOQo 



N.E. AUTO CLASSiriEO 



n N.L AUTO CLASanEDS f " 



NLEC WORSHIP 


NNN NEWS MAGAZINE 


» 


NO 


» 



NYPO BLUES 



TV TfllfS STARTING WITH N 



FIG. 21 jrzm 



TITLES BEGINNING WITH 'NO' 



N.E, AUTO CLASSIFIEDS 



NLEC WORSHIP 



NNN NEWS MAGAZINE >> 

□ no » 



NYPD BLUES 



TV TITLES STARTING WITH N 



FIG. 22 ^zzoQ 



NOVA 



Szd P NOVA » 



NOW GENERATION » 



TV TTTIES STARTING WITH NO 



105 



page -105- 



EP 0 735 749 A2 



FIG. 23 



Z300 



rzm 



WLVT: 12:00 AM TO 1:00 AM. NOVA 
(EPISODE TITLE) 


Z3QZ 


1 


AM NOON PM 
23456789 10 11 12 1234567 


s 


9 to 11 


SUN 






1 *l M 1* 








MON 




♦ 


TUE 








' * 






WED 








i « 




THUR 








♦ 


1 1* 


FRl 


1 ri ■ 1 ^ J i , 


SAT 


II 1 II * \ 


THIS WEEK: NOVA 



106 



page -106- 



